Gem som pdf via knap (VBA)

Hej

Er ikke så langhåret til VBA, men kan alligevel lidt...

Jeg vil gerne have en knap, som giver mulighed for at gemme som pdf, fra en hvilken som helst maskine filen bliver brugt på.

Jeg har indtil videre noget der ligner nedenstående, men problemet er, at den gemmer på C:\Users\ABC\file.pdf, hvilket jo ikke er det samme på alle maskiner.

Sub GemPDF()

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\ABC\file.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _True

End Sub

Vh CHC