|This seemed to work.|
- You'll have to change the path to match where you want the PDF's saved.
- You can change OpenAfterPublish:=True to False if you don't want to see each PDF after it's created.
- The code will overwrite a file with the same name without asking.
You have been warned! ;-)
For sh = 1 To Sheets.Count
Sheets(sh).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\username\Desktop\" & Sheets(sh).Name & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.