Wie kann ich ein Makro bei einer Dateiausgabe mit ausgeben?

[hziemer]

Hallo Uwe,

erst einmal vielen Dank für Deine Antwort.

Ich denke, das Deine Lösung nicht genau mein Problem umfasst.

Mit folgendem Code erzeuge ich die Ausgabe Datei:

Sub Speichern_mit_Datum()

Dim wkbName As String, wkbNeu As String, wksName As String

wkbName = ThisWorkbook.Name
wksName = ActiveSheet.Name
Workbooks.Add
wkbNeu = ActiveWorkbook.Name

Workbooks(wkbName).Sheets(wksName).Range("A1:h6").Copy Workbooks(wkbNeu).Sheets(1).Range("A1")
Workbooks(wkbName).Sheets(wksName).Range("A7:Z8000").Copy Workbooks(wkbNeu).Sheets(1).Range("A7")


Dim pfad As String, dateiname As String
pfad = "C:\Users\yyyy\Documents\Kunden\xxxx\"
dateiname = "Auswertung Heatmap täglich vom " & Range("ah7") & " bis " & Range("ah8") & ".xlsm" 'mit Makro
strDname = pfad & dateiname

With Application
 
      .ScreenUpdating = False
      .DisplayAlerts = False
  End With
           ActiveWorkbook.SaveAs strDname, FileFormat:=xlOpenXMLWorkbookMacroEnabled  'mit Makro
ActiveWorkbook.Close

End Sub


Es soll während der Ausgabe der Datei auch noch ein Makro mit abgespeichert werden.
Das kann der Kunde nachdem er das File bekommen ausführen.

Ist das  so machbar?

Danke für eine Antwort
hziemer