Laufzeitfehler 9 beim Blätter löschen
22.07.2002 20:08:24
Olaf
Alle Blätter einer Datei bis auf das Erste löschen
Das Problem:
Laufzeitfehler 9, nachdem einige Blätter erfolgreich gelöscht wurden
Mein bisheriger Programmiercode:
Sub blaetter_loeschen()
Application.DisplayAlerts = False
Dim s As Long
For s = 2 To Sheets.Count
Sheets(s).Select
ActiveSheet.Delete
Next s
End Sub
Vielen Dank schon vorab für Mitgrübeln und Hilfestellung!
Anzeige