kennt jemand den Code um alle leeren Tabellenblätter zu löschen ?
:-)
Gruß
Stefan
Sub ttt()
Dim wks As Worksheet
For Each wks In Worksheets
If Application.CountA(wks.Cells) = 0 And Worksheets.Count > 1 Then
Application.DisplayAlerts = False
wks.Delete
Application.DisplayAlerts = True
End If
Next
End Sub