Exporting a PDF with the workbook file name

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

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:

fname = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)

Thanks again!