Schriftfarbe über VBA-fehler im Code

Sub faerben1()
Dim i As Integer, x As Integer
Dim zz As Variant
zz = Sheets("zz").Cells(3, 1).Value
Sheets(1).Select
'spalten
For i = 4 To 13 Step 3
' zeilen
For x = 12 To 41
If IsNumeric(Cells(x, i)) Then
With Cells(x, i)
.Font.Bold = False
.Font.ColorIndex = 1
End With
If Cells(x, i).Value >= zz Then
With Cells(x, i)
.Font.Bold = True
.Font.ColorIndex = 10
End With
Else
With Cells(x, i)
.Font.Bold = False
.Font.ColorIndex = 3
End With
End If
End If
Next
Next
End Sub

der Code vergleicht Zellwerte mit dem Wert Zeitziel (zz) und markiert Zellen > zz grün und fett, < zz rot

lasse ich den Code laufen erhalte ich folgende Fehlermeldung:
Laufzeitfehler 1004
Die Colorindex-Eigenschaft des Font-Objektes kann nicht festgelegt werden.

Wer hat hierzu eine Idee, ich weiß nicht mehr weiter.

Vielen Dank.

Gruß

Andi Huber