Hallo zusammen

Ich verwende den folgenden Code, um alle nicht benötigten Teile von Excel (Dashboard) auszublenden. Das Problem ist, dass dieser Code nur bei einer ungeraden Anzahl von Arbeitsblättern funktioniert.

Sub Vollbild()
On Error GoTo FEHLER
Dim Blatt As Worksheet, wksActive As Worksheet
Dim s As String
Application.ScreenUpdating = False
Set wksActive = ActiveSheet
For Each Blatt In Worksheets
Blatt.Activate
With ActiveWindow
.DisplayHeadings = Not .DisplayHeadings
.DisplayHorizontalScrollBar = Not .DisplayHorizontalScrollBar
.DisplayVerticalScrollBar = Not .DisplayVerticalScrollBar
.DisplayWorkbookTabs = Not .DisplayWorkbookTabs
End With
Next Blatt
wksActive.Activate
FEHLER:
On Error GoTo 0
Application.DisplayFullScreen = Not (Application.DisplayFullScreen)
Application.ScreenUpdating = True
End Sub

Für einen Tipp bin ich euch sehr dankbar!

Beste Grüsse
Marc