Win2000 SP4
Off2003 SP1
Habe den Code eingebunden und unter XP läuft es einwandfrei. Was habe ich vergessen.
Gruss aus der Schweiz
Reto
Sub BlaetterLoeschen() 'Löscht alle nun unnötigen Tabellen
Dim sh As Object
For Each sh In ActiveWorkbook.Sheets
If Right(sh.Name, 1) = ")" Then
On Error GoTo errhandler
Application.DisplayAlerts = False
sh.Delete
End If
Next