FensterEinstellen - Fehlermeldung?

Hallo VBA-Profis,

Weiß jemand wo in diesem Makro der Fehler steckt
und wie ich den Fehler beheben kann?

Hier die Fehlermeldung:

Application.Caption Silkes Organiser

Hier das Komplette Makro:

Sub FensterEinstellen(Status)
   
    Const neuBreite = 540
    Const neuHöhe = 320
    Static alteBreite
    Static alteHöhe
    Static altOben
    Static altLinks
    Static alterStatus
   
    If Status = x10n Then
        alteBreite = Application.Width
        alteHöhe = Application.Height
        altOben = Application.Top
        altLinks = Application.Left
        alterStatus = Application.WindowState
        Application.WindowState = xlNormal
        Application.Width = neuBreite
        Application.Height = neuHöhe
        Application.Caption Silkes Organiser
       
        ActiveWorkbook.Unprotect
        ActiveWindow.WindowState = xlMaximized
        ActiveWindow.Caption =
        ActiveWorkbook.Protect , True, True
       
        BlattSchutz x10n, Haupt
        BlattSchutz x10n, Kalender
        BlattSchutz x10n, Termine
        Application.DisplayFormulaBar = False
        Application.DisplayStatusBar = False
        ActiveWindow.DisplayHorizontalScrollBar = False
        ActiveWindow.DisplayVerticalScrollBar = False
        ActiveWindow.DisplayWorkbookTabs = False
    End If
    Else
        Application.Caption = Empty
        If Not IsEmpty(alteBreite) Then
            Application.Width = alteBreite
            Application.Height = alteHöhe
            Application.Top = altOben
            Application.Links = altLinks
            Application.WindowState = alterStatus
        End If
        BlattSchutz x10ff, Haupt
        BlattSchutz x10ff, Kalender
        BlattSchutz x10ff, Termine
        ActiveWorkbook.Unprotect
        Application.DisplayFormulaBar = False
        Application.DisplayStatusBar = False
        Application.DisplayFormulaBar = True
        Application.DisplayStatusBar = True
        ActiveWindow.DisplayHorizontalScrollBar = True
        ActiveWindow.DisplayVerticalScrollBar = True
        ActiveWindow.DisplayWorkbookTabs = True
    End If
End Sub

Gruß
Silke

Spontan würde ich sagen da fehlt ein Gleichheitszeichen

Hallo Fizbin,

Jetzt habe ich das Gleichheitszeichen eingefügt.

Nun taucht eine weitere Fehlermeldung auf

Fehler beim Komplimieren:

Else ohne If

Was heißt den jetzt diese Fehlermeldung?

Gruß
Silke

Sieht so aus als gehört das erste End if da nicht hin

Hallo Fizbin,

Danke für deine Hilfe. Jetzt funktioniert das Makro.

Als Anfänger ist es gar nicht so einfach. Ich habe
gar nicht Gedacht. Das Makros schreiben so schwer
ist.

Gruß
Silke