Hi All,
Could anyone help solve this problem I have?
I need to determine the colorIndex of a character from a string stored
in a cell.
I can call the characters one by one, and there seems to be a
..font.colorIndex method but I can not seem to store the value.

Here is the code I'm trying.


Sub ColourAndReportCaharcter()
Dim i, j As Integer
Dim N As Variant
j = ActiveCell.Characters.Count
For i = 1 To j
N = ActiveCell.Characters(i).Font.ColorIndex 'This Fails? Why?
Debug.Print TypeName(N) ' TypeName is 'ERROR"
Next i
End Sub


Thanks for any help.
Jason