re print to PDF__Prompt for Folder Location with auto file name ?

[Gerry P]

I have the following macro that works fine but I have had some requests if its possible to have a prompt to save into a folder near the file location ? overwriting is also needed. I would like if possible the file name function to remain ?

I have searched and have come up with no 100% solutions. Yes I am a newby !!!!

Thanks in Advance, Gerry..



Sub SaveToPDF()

Dim OriginalSheet As String

OriginalSheet = ActiveSheet.Name

Sheets(Array("Title", "Contents", "Buildview", "E-W Plan")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "" & ActiveSheet.Range("AA3").Value, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

ThisWorkbook.Sheets("Title").Select

End Sub