Gruppe
Allgemein
Bereich
Arbeitsblatt
Thema
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?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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