<請益> EXCEL如何並指定檔名並另存新檔成PDF?

小弟目前是使用以下寫法設定成自動
依照b11的內容自動儲存"C:\文件\" & File_Name & ".pdf"


Sub Print_PDF()

File_Name = Range("B11").Value

Page1 = 1
Page2 = 1

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\文件\" & File_Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False, From:=Page1, To:=Page1

End Sub

因使用其他電腦後，儲存路徑不同，如何讓檔名依照b11儲存格
並設定成-->另存新檔(詢問儲存位置)