Makro til 'Gem som' med selvvalgt navn og placering

Hej eksperter

Her er formeltlig en let én: I et regneark vil jeg oprette en makro, som gemmer et bestemt ark som en pdf-fil. Brugeren skal selv bestemme filnavn og placering og ikke blot gemme som "C:\Users\TSB\Desktop\PDFudskrift.pdf", som vist nedenfor.


Sub GemSomPDF()

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\TSB\Desktop\PDFudskrift.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    Application.WindowState = xlMinimized
End Sub