I am wanting to convert some sheets in a workbook to individual PDFs, each with the name indicated on the sheet's tab. I have managed to save the PDF's with its name being the same as an individual cell ("C15"), but it's not perfect. Here is my effort:
Sub Convert_PDF()
'
' Convert_PDF Macro
'
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("C15").Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Range("G15").Select
End Sub
Although this works and a PDF file is produced, it is saved in My Documents (sometimes) and has turned up in all sorts of random places on other occassions. I would like to save the individual PDFs to a file of my choosing, as the macro begins to run.
Please tell me this is possible and how it can be done.
Thanks for any help.
Bob
Open in new window