beim Öffnen einer Arbeitsmappe soll das Blatt "startseite" aktiviert werden. Warum funktioniert das mit folgendem code nicht?
Private Sub Workbook_Open()
Dim Wb As Workbook, Sh As Worksheet
Application.ScreenUpdating = False
For Each Wb In Workbooks
For Each Sh In Wb.Worksheets
Sh.Protect
Next Sh
Next Wb
Sheets("startseite").Activate
With ActiveWindow
.SmallScroll Down:=-50
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
Application.ScreenUpdating = True
End Sub
Gruß Johannes