Vielen Dank, Mase!

klappt bei mir irgendwie nicht, gleich zu Beginn kommt die Meldung

Habs aber mit untenstehendem Code zwischenzeitlich hinbekommen. Danke Dir trotzdem!

Viele Grüße

Dominic

Sub AutoCopyBlaetter()
'
' Befüllt Zelle AG6 mit Zahl aus Schleife
' Kopiert dann Tabellenblatt
' benennt dann Tabellenblatt nach Inhalt U28
' Tastenkombination: Strg+t
'
   Dim dValue As Integer
   Dim wsAlle As Worksheet
   Dim wsNeu As Worksheet
   Dim wbNeu As Workbook, PfadNeu As String
   Dim strName As String
   Dim aTest As String
   Dim Pleft As Double, Ptop As Double
   
   PfadNeu = ActiveWorkbook.Path 'Verzeichnis in dem Dateien gespeichert werden sollen
   
   For dValue = 1 To 37
       Sheets("Tabelle1").Range("AG6").Value = dValue
        Worksheets("Tabelle1").Calculate
        aTest = Worksheets("Tabelle1").Range("AG26").Value
        strName = aTest & Worksheets("Tabelle1").Range("U28").Value
        Sheets("Tabelle1").Copy After:=Sheets(Sheets.Count)
        Set wsNeu = ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
        wsNeu.Name = strName
        With wsNeu.Range("A19:AD42")
            .Copy
            .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
        End With
        wsNeu.Columns("AG:AG").EntireColumn.Hidden = True
        Range("A1").Select
        Application.CutCopyMode = False
        wsNeu.Protect Password:="AV", DrawingObjects:=True, Contents:=True, Scenarios:=True, _
            AllowFormattingRows:=True
        'neues Blatt in neue Mappe kopieren
        wsNeu.Copy
        Application.DisplayAlerts = False
        wsNeu.Delete
        Set wbNeu = ActiveWorkbook
        Application.DisplayAlerts = False 'Falls Datei schon vorhanden wird diese ohne _
           Rückfrage überschrieben
        wbNeu.SaveAs Filename:=PfadNeu & "\" & strName, FileFormat:=51 '51 = xlsx-Datei
        Application.DisplayAlerts = True
        wbNeu.Close SaveChanges:=False
  Next dValue
   
End Sub