ich möchte gern Tabellenblätter 2 bis 11 löschen.
Hatte dies mal aufgezeichnet, weil aber die Namen
unterschiedlich sein können, komm ich nicht
weiter.
gruß
kurt k
Option Explicit
Sub TabDelete()
Dim x&
For x = 11 To 2 Step -1
Application.DisplayAlerts = False
Sheets(x).Delete
Application.DisplayAlerts = True
Next
End Sub
Gruß MatthiasSub Delete_Sheets()
Dim I As Integer
Application.DisplayAlerts = False
For I = Application.Min(11, Sheets.Count) To 2 Step -1
Sheets(I).Delete
Next
Application.DisplayAlerts = True
End Sub
Gruß Gerd