Tabellenblätter löschen - aber nicht alle
strodti
in meiner Datei werden durch verschiedene Prozeduren einige Tabellenblätter angelegt (die Anzahl ist variabel), die jedoch nur temporär benötigt werden. Nachfolgenden Code habe ich im Netz gefunden (von Hajo ursprünglich). Dieser Code löscht alle Blätter außer dem Ersten bzw. Tabelle1. Wie muss ich den Code ändern, damit alle Blätter außer die ersten sieben Blätter gelöscht werden.
Sub Loeschen()
' Alle Register löschen bis auf Register Tabelle1
Dim I As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For I = ActiveWorkbook.Worksheets.Count To 1 Step -1
If Worksheets(I).Name "Tabelle1" Then _
Worksheets(I).Delete
Next I
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Tobias