Macro to Export from Excel to .pdf

Can anyone recommend a better Macro to be able to do the following:

1. Choose where you can save the exported file

2. MAXIMUM quality of export

Here is what I'm currently using:

Sub ExportPDF()

ThisWorkbook.Sheets(Array("Sheet1")).Select

    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="C:\Users\user\Export", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
        
ThisWorkbook.Sheets(Array("Sheet1")).Select

End Sub

Thanks as always!