macro to PDF printing

[biglb79]

can anyone tell me why I'm receiving an error on this macro and it's not printing/saving all the tabs to PDF in the current file folder?

Sub ExportAllSheets2Pdf()
Application.ScreenUpdating = False
ChDir ThisWorkbook.Path
Dim ws As Worksheet
For Each ws In Sheets
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ws.Name & "_-_monthlyAMsummary" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next ws
Application.ScreenUpdating = True
End Sub

 

[biglb79]

it says run-time error '1004'

and if I hit debug it highlights the area: ws.ExportasFixedFormat through OpenAfterPublish:=False

 

[biglb79]

never mind, it finally worked after clicking it numerous times