color grid

[mdmackillop]

I believe you are limited to the number of colours in the palette
Give this a try
[vba]
Sub Colours()
For i = 5 To 255 Step 10
For j = 5 To 255 Step 10
For k = 5 To 255 Step 10
a = a + 1
Cells(a, 1) = i
Cells(a, 2) = j
Cells(a, 3) = k
Cells(a, 4).Interior.Color = RGB(i, j, k)
Cells(a, 5) = Cells(a, 4).Interior.ColorIndex
Next
Next
Next
End Sub
[/vba]