Option Explicit

Sub ShowColors()
Dim i As Long
For i = 0 To 56
Cells(i + 1, 1) = i
Cells(1 + i, 3).Interior.ColorIndex = i
Cells(1 + i, 2) = Cells(1 + i, 3).Interior.Color
Next
End Sub

"RandyDtg1" wrote:

What are the values for ColorIndex 's 56 colors ? i.e. green=3 ... Or
where can a table of the values be found ?