Gem som pdf, skriver .pdf .pdf

Hej
Jeg har denne kode til at gemme en fane som en pdf-fil, men resultatet er
GemPDF-test.pdf .pdf, med mellemrum inden sidste .pdf.
Der står kun GemPDF-test i AA1

Sub GemPDF()
    Application.ScreenUpdating = False
    filename = Ark1.Range("AA1").Value
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
        "C:\Users\" & [AA2] & "\Downloads\" & filename & ".pdf  ", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub