Vorlage für neue Tabellenblätter festlegen (für eine Mappe) - Excel 2010

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    On Error Resume Next
    'Objekte definieren  
    Set regex = CreateObject("vbscript.regexp")  
    ' Regex Pattern für Nummern am Ende vom Arbeitsblattnamen  
    regex.Pattern = "\d+$"  

    With Application
        ' Deaktiviere temporär Events und Alerts  
        .EnableEvents = False
        .DisplayAlerts = False
        ' Lösche das Standard-Sheet von Excel (Wir haben ja unser eigenes  
        Sh.Delete
        ' Kopiere das "ausgeblendete" Template ans Ende aller Arbeitsblätter  
        Sheets("Template").Copy After:=Sheets(Sheets.Count)  
        With Sheets(Sheets.Count - 1)
            ' Suche die Nummer im Namen des vorherigen Sheets  
            Set matches = regex.Execute(Sheets(.Index - 1).Name)
            ' Gibt es eine benenne das neue Arbeitsblatt "TabelleX" wobei X eine Nummer größer ist als die Nummer des vorherigen  
            If matches.Count > 0 Then
                If IsNumeric(matches(0)) Then
                    .Name = "Tabelle" & (CInt(matches(0)) + 1)  
                End If
            End If
            ' Mache das Sheet sichtbar und aktivere es  
            .Visible = True
            .Activate
        End With
        ' Aktiviere temporär Events und Alerts  
        .EnableEvents = True
        .DisplayAlerts = True
    End With
    'Cleanup  
    Set regex = Nothing
End Sub