Macro/VBA til "save as pdf" i excel 2007

Hej eksperter

Jeg bruger excel 2007 engelsk version - på et XP styresystem.

Hvordan laver jeg en makro, der går ind office knappen -> save as -> PDF or XPS, hvorefter brugeren selv kan vælge placering og filnavn.

Hvis jeg indspiller det som makro, ser den således ud:

Sub test1()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "H:\Supply Chain Development\Inbound Freight Calculator\Inbound Freight Calculater3.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

End Sub

Men i ovenstående, har jeg jo valgt placering og filnavn - og meningen er at brugeren selv skal kunne vælge dette.

Nogen der kan hjælpe med en omskrivning eller anden måde at løse det på?

Mvh
Line