[ms office - 2010] Excel Help please

[featured_spectre]

Is there a way to automate saving multiple sheets as individual PDF files?

 

I have a document which is around 16-20 sheets (depending on which month it is), and naming the PDF file the same as the sheet it is saving. It is a hassle saving each sheet every month, and was wondering if there was a way I can expedite the process.

 

No downloadable programs, just a plain VBS script should do the job nicely.

[featured_spectre]

IF anyone was looking at sorting this, I resolved it.

 

Sub PDF_IndividualSheets()
Dim page As Worksheet
Dim title As String
Dim location As String

location = "C:\"
   
   For Each page In Worksheets
       title = page.Name
       
       ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=location & title _
           , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
           :=False, OpenAfterPublish:=False
           
   Next
End Sub

(Change the location as needed)

[mac_shinobi]

Handy to know - thanks for that