Gem som PDF

Hej
Hvor går det galt i min makro? Jeg har en projektmappe med makroer, den vil jeg gerne gemme som pdf.
Min makro ser sådan ud, og den gemme som pdf, men jeg kan ikke åbne den.
Sub GemSomPDF()
    ChDir "H:\Dokumenter\"
'    SaveCopyAs = "pdf"
    FileFormat = ".pdf"
    filename = Range("J2").Value
    ActiveWorkbook.SaveCopyAs filename:="H:\Dokumenter\" & filename
".pdf"
End Sub