Gruppe
Allgemein
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