Zeilen ausblenden.

Hallo,
ich habe folgenden Wunsch:
In meiner Tabelle werden, durch eine bedingte Formatierung, mir Zeilen angezeigt, die aufgrund nicht vorhandener Daten ausgeblendet werden können. Markiert werden diese Zeilen in der Spalte A mit einem kleinen roten ->.
Sofern hier wichtiger Inhalt enthalten ist, ist dieser Pfeil schwarz.
Nun habe ich mich an einem Makro versucht, dass bei meiner Tabelle automatisch die Zeilen ausblenden soll, bei denen die Schrift in der ersten Spalte nicht schwarz ist.
Meiner Meinung nach, müsste es in etwa so sein.

Sub func_inact_ausblenden()
' func_inact_ausblenden Makro
For i = 2 To 100              'ab Zeile 2 in der Spalte A wird geprüft
If Cells(i, 1).Font.ColorIndex = 11 Then    'here is color black
Cells(i, 1).EntireRow.Select
Selection.EntireRow.Hidden = True
MsgBox "Zeile " & i & " Ausgeblendet"
Else
MsgBox "Zeile " & i & " Nicht Ausgeblendet"
End If
Next i
End Sub