Habe folgende Frage:
Per Makro sollen allen Tabellenblätter gelöscht werden, bis auf das aktivierte.
Wie macht man soetwas ?
Gruß
Birgit
Sub blätter_löschen()
Dim sh As Worksheet, actSh As Worksheet
Set actSh = ActiveSheet
For Each sh In Worksheets
If Not sh.Name = actSh.Name Then sh.Delete
Next
End Sub
Public Sub lösch()
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Sheets
If ws.Name <> ActiveSheet.Name Then
ws.Delete
End If
Next
Application.DisplayAlerts = True
End Sub