VBA Code - Export as fixed format on active sheet

[Nordicrx8]

Hey all!

So the below code works great. Though sometimes I need to make a copy of the tab and export, though the button is still referencing the original tab. Is there any way I can make it reference the current tab it's in, rather than setting a fixed sheet?

thanks all!!


Sub Button1_Click()
Sheets("Daily Performance").Range("A1:d80").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

 

[Joe4]

Try changing:

[COLOR=#333333]Sheets("[/COLOR][U][B]Daily Performance[/B][/U][COLOR=#333333]").Range("A1:d80").

to
[/COLOR]

[COLOR=#333333]ActiveSheet[/COLOR][COLOR=#333333].Range("A1:D80").[/COLOR]

 

[Nordicrx8]

That worked perfectly!! Thank you!!

 

[Joe4]

You are welcome.