Bin ich zu blöd???

Hallo, liebe VBA'ler und VBA'lerinnen,

ich schreibe gerade an einer kleinen Anwendung für Excel und stolpere schon bei den ersten Schritten darüber, dass mir "End While" als Fehler angezeigt wird: "Erwartet IF oder Select oder Sub oder Function oder Property oder Type oder With oder Enum oder Anweisungsende"

Scheinbar bin ich zu blöd den Fehler darin zu erkennen.

Wer kann mir helfen??? Danke!!!

While ActiveCell.Value = "offen"
    'Zelle mit Mailadresse auswählen
    Range("H" & ZEILE).Select
    KONTROLLWERT = ActiveCell.Value
    'Inhalt mit Liste Dez 01 abgleichen
    'Nächste Zeile abgleichen
    ZEILE = ZEILE + 1
    Range("K" & ZEILE).Select
End While