Export all worksheets to PDF as the sheet name

[taylorsm]

This code does one sheet at a time but that doesn't help me much. I need it to save multiple sheets separately and named as the sheet name. How can I do that?

Please Login or Register  to view this content.

[Logit]

.
This macro saves all sheets in the workbook as individual PDFs, in the DOCUMENTS folder :

Please Login or Register  to view this content.

You can specify a folder by : Fname = “C:\myFolder\pdfs\” & ws.Name