VBA required to export individual sheets to indivdual pdfs

[rossa]

Hi. I have a file where the first sheet feeds data to the other sheets (the number of sheets may vary over the months). I need all these sheets saved separately into their own pdf file. Is it possible to get a code that will save each sheet into its own pdf in the same location as the excel file itself is saved?
I have searched this forum and others, but I can't find a code that works (most errors seem to arise from the worksheet Dim ws).

 

[eduzs]

Try that:
Backup before test, test in a throw away copy of your file.

Sub Test()

Dim oSht As Worksheet, oWkb As Workbook

Set oWkb = ActiveWorkbook
Application.ScreenUpdating = False
For Each oSht In oWkb.Sheets
    oSht.ExportAsFixedFormat xlTypePDF, oWkb.Path & "\" & oSht.Name & ".pdf"
Next oSht
Set oWkb = Nothing
Application.ScreenUpdating = True

End Sub

 

[rossa]

Thanks for your response. Unfortunately I am getting an error
"Run time error 5
Invalid procedure call or arguement"

This seems to be the offending line.
oSht.ExportAsFixedFormat xlTypePDF, oWkb.Path & "\" & oSht.Name & ".pdf"

 

[eduzs]

Must not have hidden worksheets.
If there's hidden worksheet do you want to save those one as pdf also?

 

[rossa]

Ah, the hidden worksheets! Iforgot about that. Removed them and it it worked perfectly. I appreciate your help, happy new year!

 

[eduzs]

You're welcome.