Hi,
I think MsgBox Range("A1").Font.ColorIndex works. Try next procedure.

Sub test_colorindex()
For i = 0 To 56
With Range("A1").Offset(i)
.Value = i
.Font.ColorIndex = i
.Offset(, 1).Value = .Font.ColorIndex
End With
Next i
End Sub

Jare

--
Message posted from http://www.ExcelForum.com