listbox item hinzufügen

ich habe ein kleines problem und hoffe mir kann jemand helfen.

also ich möchte, dass alle die werte der zellen in spalte A einer listbox hinzugefügt werden, die eine blaue schriftfarbe haben. Habe versucht eine Prozedur zu schreiben, jedoch ohne erfolg.

For i = [A65536].End(xlUp).Row To 1 Step -1
If Cells(i, 1).Font.ColorIndex = 41 Then ListBox1.AddItem Cells(i, 1).Value
Exit For
Next i

Dabke im voraus