Phänomen bei bedingter Formatierung

nutze in einer größeren VBA-Appliaktion u.a. folgenden Code zur Formatierung einer Ausgabeseite.

#################################################

Sub SetFormat()

Dim nI As Integer
Dim nCell As String

For nI = 1 To 10
nCell = "$A$" & nI & ":$I$" & nI
If Worksheets(1).Range(nCell).FormatConditions.Count > 0 Then
Worksheets(1).Range(nCell).FormatConditions(1).Delete
End If

Worksheets(1).Range(nCell).FormatConditions.Add xlExpression, , _
"=ZEILE($A$" & Worksheets(1).Range(nCell).Row & ")-GERADE(ZEILE($A$" & Worksheets(1).Range(nCell).Row & "))=0"
Worksheets(1).Range(nCell).FormatConditions(1).Interior.ColorIndex = 35
Next nI

End Sub

###########################################################

Wird diese Funktion über ein Button gestartet oder manuell im Debugger erhählt man den gewünschten Effekt: gerade Zeilen Hellgrün, ungerade Standardfarbe.

Wird nun die selbe Funtion über das Ereignis OPEN der Arbeitsmappe gestartet

######################################

Private Sub Workbook_Open()
SetFormat
End Sub

##########################################

ist die Formatierung nicht aktiv. Gleichwohl ist sie über "Format", "bedingte Formatierung" zu sehen und nach dem Bestätigen mit CR aktiv.

Wer hat eine Erklärung und nochbesser eine Lösung?

Gruß Frank ;-(