Sub ListColorIndexes()
Dim Ndx As Long
Sheets.Add
For Ndx = 1 To 56
Cells(Ndx, 1).Interior.ColorIndex = Ndx
Cells(Ndx, 2).Value = Hex(ThisWorkbook.Colors(Ndx))
Cells(Ndx, 3).Value = Ndx
Next Ndx
End Sub


Gord Dibben MS Excel MVP

On Wed, 6 May 2009 00:19:01 -0700, MAX
wrote:

I am trying to get some colour numbers so that I will use them in codes. I am
using Excel 2007 and I tried to get the number of the red colour by record a
macro then I look in module. So for red it gives me number 255. When I
inserted in code, it didn't work. Just to tell you that in Excel 2003 it
gives me number 3, and it worked.
The problem is that I have Excel 2007. Any help please?

Thanks a lot