Hallo zusammen,

ich wollte einen Code machen der mir die neu kopierte Arbeitsmappe speichert als makro freie Excel Datei, aber mit speichern unter...
Jedesmal zeigt er mir jedoch an das in der Arbeitsmappe Makros vorhanden sind und ich dies dann als .xlsm speichern müsse.

In der eigentlichen Mappe habe ich einen CommandButton verbaut, der auch gelöscht wird in dem Code.

Wie bekomme ich es hin das er alles rauslöscht aus der neuerzeugten Mappe und ich dies speichern kann als freie Excel-Datei
oder er gleich wenn sich der Explorer öffnet für das speichern unter..., dass sich gleich der dateityp auf Excel-Arbeitsmappe mit makros ändert, so das man es nicht jedesmal auswählen muss.

Option Explicit

Const xlsm As Long = 52 'Makrofähige Arbeistmappe

Sub Blattspeichern()
Dim fd As FileDialog
Dim datei As String
ActiveSheet.Copy
ActiveSheet.Shapes("SpeichernButton").Delete 'Löscht den Command Button mit dem Name
Set fd = Application.FileDialog(msoFileDialogSaveAs)
fd.InitialFileName = ActiveSheet.Name & " " & Range("F5").Value & ".xlsm"
If fd.Show = -1 Then 'OK geklickt
datei = fd.SelectedItems(1)
ActiveWorkbook.SaveAs Filename:=datei, FileFormat:=xlsm
ActiveWorkbook.Close SaveChanges:=False 'Neu geöffnete Mappe schließen
End If
End Sub

Danke