schonwieder VBA fehler in 2003

Sub Ausblenden()
Dim i As Integer 'variable i, integer kann ganze zahlen speichern
Dim blattname As String 'string ist in der lage texte zu speichern (zeichen kette)
blattname = ActiveSheet.Name
On Error Resume Next 'bei einem fehler nächste zeile weitermachen
Application.ScreenUpdating = False 'bildschirmaktualisierung ausschlaten
Application.DisplayFullScreen = True 'setzt die Multifunktionsleiste außerkraft
Application.DisplayFormulaBar = False
For i = 1 To Sheets.Count 'Zählt die tabellen automatisch
Sheets(i).Select
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
.DisplayGridlines = False
.DisplayHeadings = False
End With
Next i
Sheets(blattname).Select
Application.ScreenUpdating = True 'bildschirmaktualisierung ausschlaten
End Sub