Datei per VBA unter xlsx speichern

Hallo,
ich erzeuge per VBA ein neues Workbook, welches den Namen einer Zelle trägt. Dieses Workbook wird dann leider unter
xlsm gespeichert. Wie kann ich per VBA das ganze unter xlsx speichern??
Hier mein bisheriger Code:

Public Sub SpeichernUnter()
'Quelle: Melanie Breden
Const strPath As String = "D:\" 'Pfad anpassen
Dim strFile As String

strFile = ActiveSheet.Range("A2").Value

If Dir(strPath) = "" Then
MsgBox "Pfad existiert nicht"
Exit Sub
End If

If Dir(strPath & strFile & ".xlsx") = "" Then
ActiveWorkbook.SaveAs strPath & strFile
Else
MsgBox "Datei existiert bereits"
End If
End Sub

Sollten wir uns vor 0 Uhr nicht hören, euch allen einen Guten Rutsch.
Gruß Asterix2

ActiveWorkbook.SaveAs Filename:=strPath & strFile, FileFormat:=xlOpenXMLWorkbook

Dim newdoc As Workbook
Set newdoc = Application.Workbooks.Add
newdoc.SaveAs strPath & strFile