Einzige Frage. Beim Ausführen kommt die Meldung, dass die Features in Arbeitsmappen ohne Makros nicht gespeichert werden können und man auf "Ja" klicken muss um die Datei als Arbeitsmappe ohne Makros zu speichern.

Kann man dieses Fenster noch irgendwie unterdrücken, sodass die neue Arbeitsmappe automatisch ohne Makros gespeichert wird?

Ja das geht.

Option Explicit
 
Sub Test()
  Dim strName As String
  With ThisWorkbook.Worksheets("Basisreiter")
    strName = Trim$(.Range("A6").Value)
    Call .Copy
  End With
  With ActiveWorkbook
    .Worksheets(1).Name = strName
    Application.DisplayAlerts = False
    Call .SaveAs(Environ$("USERPROFILE") & "\Desktop\" & strName, xlOpenXMLWorkbook) 'save as XLSX
    Application.DisplayAlerts = True
    Call .Close
  End With
End Sub