Excel macro - Hjælp HJÆLP

I en Excel fil skal der gemmes en PDF fil som skal navngives med teksten i celle D1 op den skal placer sig på skriveboret på den PC som den aktiveres fra, der kan være flere bruger, men skal altid placeres på brugers skrivebord..
Hvad er galt med nedestående??

***************
'Fil sti
Dim fil_sti As String
fil_sti = C:\Users\%username%\Desktop

'Load navn fra celle D1
Range("D1").Select
Dim filnavn As String
filnavn = ActiveCell.Value

'--------------------------

'Opret PDF dokument og gem på angivet sti placering
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        fil_sti & "\" & filnavn, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True


End Sub
***************