Hallo Leute. Folgendes Makro funktioniert leider nicht. Also es funktioniert bis auf den letzten Teil, dass es einfach nicht abspeichert.

Public Sub aLG_macro(Optional ByVal nWorkbookName As String = "", _
Optional ByVal nTemplateName As String = "")
On Error Resume Next

    ChDir _
        "H:\fag\fkomp\03 A+O\10 Vorlagen\Neuer Ordner\04   Mengenerfassung  FREKOG"
    Workbooks.Open Filename:= _
        "H:\fag\fkomp\03 A+O\10 Vorlagen\Neuer Ordner\04   Mengenerfassung  FREKOG\02 Vorlage Grundlagen BP  pne.xlsx"
    Sheets.Add After:=ActiveSheet
    Sheets("Tabelle1").Select
    Sheets("Tabelle1").Name = "Mengen Revit"
    Windows("Mengen Revit1").Activate
    Cells.Select
    Selection.Copy
    Windows("02 Vorlage Grundlagen BP  pne.xlsx").Activate
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1:AF1").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    Sheets("Grundlage Vorausmass").Select
    Windows("Mengen Revit1").Activate
    Columns("H:I").Select
    Selection.Delete Shift:=xlToLeft
    Range("A2:N10000").Select
    Selection.Copy
    Windows("02 Vorlage Grundlagen BP  pne.xlsx").Activate
    Range("C55").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Windows("Mengen Revit1").Activate
    ActiveWindow.Close
    
'abspeichern
    
    ChDir "\\daten6\user$\14475\Desktop"
    ActiveWorkbook.SaveAs Filename:="\\daten6\user$\14475\Desktop\AvorTool.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False


End Sub

Könnt Ihr mir sagen was da falsch läuft?

lg