Excel und VBA - Die Excel-FAQ

Tabellen von selektierten Arbeitsblattnamen löschen

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Tabellen von selektierten Arbeitsblattnamen löschen

Problem: Wie kann ich die Arbeitsblätter, deren Namen ich in einer Tabelle ausgewählt habe, ohne Rückfrage löschen lassen?

StandardModule: basMain

Sub DeleteTabs()
   Dim rng As Range
   Application.DisplayAlerts = False
   On Error Resume Next
   For Each rng In Range("A1").CurrentRegion.Cells
      Worksheets(rng.Value).Delete
   Next rng
   On Error GoTo 0
   Application.DisplayAlerts = True
End Sub