Save Every Worksheet in a Workbook to individual PDF files that use the worksheet name

[schmidt62]

I am not sure exactly how to do this one task. I want to save to PDF all worksheets within an excel workbook. Each of the worksheets would be saved with worksheet.name & ".PDF". The number of worksheets in any workbook could vary.

I think that this would involve the following:

Dim APath As String

APath = ActiveWorkBook.Path

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
APath & ActiveSheet.Name & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

I know you can count the number of worksheets in a workbook, but how do you cycle through them (saving each one, then moving to the next) in a loop? You all have been a great help on learning excel macros. Thank you -

[brynbaker]

I have posted a couple of similar CSV output posts in the past week.
To cycle through sheets:

Please Login or Register  to view this content.

or

Please Login or Register  to view this content.

[schmidt62]

Great! Thank you!!

[schmidt62]

Just saw this:

for s = 1 to sheets.count
sheets(1).activate
your code
next

should be:

for s = 1 to sheets.count
sheets(s).activate
your code
next

Works perfectly. Thanks again

[brynbaker]

Scmidt62
Happy to help, sorry about the typo.