VBA - Gem som PDF

Hej med JEr

Nedenstående kode virker glimrende, men hvis jeg ændrer fil type til xlTypePDF,

får jeg følgende fejl;

"Run-Time error 1004
Metoden Show for klassen Dialog mislykkedes"

Det kan jeg ikke gennemskue :(
----
Private Sub PDF_Click()

' laver kundevenlig version og gemmer som PDF

Dim filnavn As String

Dim Firkant As Shape

Sheets("OVERSIGT!").Unprotect "Complea!"

Range("F4:G8").ClearContents
       
Sheets("OVERSIGT!").Protect "Complea!", True, True

filnavn = "Kalkulation_" & Range("D8").Value & "_" & Range("D11").Value
    Application.Dialogs(xlDialogSaveAs).Show filnavn, xlOpenXMLWorkbookMacroEnabled
   
End Sub