Firstly, colorindex values are type 'Long' and so your code would print
"Long" in the debug window regardless of the character's color.

Secondly, the first line of code that fails is where you try to put the
Character.Count value into 'j'.

Try this revised code. (I renamed it with the correct spelling of the
word "Character", and so it shouldn't raise an alert when you run it)

Sub ColourAndReportCharacter()
Dim i As Integer
For i = 1 To Len(ActiveCell.Text)
Debug.Print ActiveCell.Characters(i).Font.ColorIndex
Next i
End Sub

So how, exactly, do you want to store the ColorIndex values? I suggest
you play around with colors and see the output in the Immediate Window.

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc