ActiveSheet.ExportAsFixedFormat set file path

[frankortizmachalert]

I am using the following code and works as expected but when it creates the PDF and opens the save location is 'Documents' but I want it to save to same folder location that the open worksheet is from.

Sub print_shipping_tabs()
'
' print_shipping_tabs Macro
' Prints the Shipping Tabs Only
'
'
Sheets(Array("Shipping", "Shipping (CO1)", "Shipping (CO2)", "Shipping (CO3)", "Shipping (CO4)", "Shipping (CO5)", "Shipping (CO6)", "Shipping (CO7)", "Shipping (CO8)", "Shipping (CO9)")).Select
Sheets("Shipping").Activate
'Save Active Sheet(s) as PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Worksheets("Job Notice").Range("S1"), Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
Sheets("Job Notice").Activate
End Sub

 

[John_w]

I want it to save to same folder location that the open worksheet is from.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & Worksheets("Job Notice").Range("S1"), Quality:=xlQualityStandard, _
   IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True

 

[frankortizmachalert]

thank you very much. I could not find solution anywhere