Exporting a PDF with the workbook file name

[todda2001]

Hi,
I'm a novice VBA user so bear with me please.

I need to create a PDF file from the first two sheets of a workbook, and I would like the PDF name to default to the name of the active workbook. Below is what I have so far, but I don't want to hardcode the name "myfile.pdf". Ideally I would like it to open the Save As dialog with the appropriate default name. Any suggestions? Thanks!

Sheets(Array("Page1", "Page2")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\myfile.pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

[john55]

see if it helps you

Please Login or Register  to view this content.

or

Please Login or Register  to view this content.

[todda2001]

Thanks John,

I used the version that chooses the name based on the active workbook name. I also removed the last 5 digits from fname so that the ".xlsm" isn't included in the pdf file name. You probably know a better way to accomplish this, but here is what I added:

Please Login or Register  to view this content.

Thanks again!

[john55]

glad you solved it!