InitialFileName in engl. Office

Sub Save_as()
Dim filesavename As Variant
Dim strdatum As String
Dim project As Variant
strdatum = Format(Worksheets("Tabelle").Range("C7"), "YYYYMMDD")
project = Worksheets("Tabelle").Range("C3").Value
If MsgBox(prompt:="Zu Beginn speichern Sie Ihr Projekt.", Buttons:=vbOKCancel + vbQuestion) _
= vbCancel Then Exit Sub
If Worksheets("Tabelle").Range("C7") And Worksheets("Tabelle").Range("C3")  Empty Then
filesavename = Application.GetSaveAsFilename(strdatum & " " & project, _
"Excel Macro-Enabled Workbook(*.xlsm), *.xlsm")
If filesavename  False Then
ActiveWorkbook.SaveAs filesavename
End If
End Sub

Funktioniert soweit ganz gut. Leider weigert er sich, das Ganze als *.xlsm zu speichern. Im SaveAs-Dialog wird zwar Excel Macro-Enabled Workbook angezeigt, nach dem Speichern liegt die Datei aber immer nur als *.xlsx vor, was ich doch aber gar nicht im FileFilter angegeben habe?
Wo liegt das Problem?
Vielen Dank