Hi

Run this macro on a empty sheet

Sub ListColorIndexes()
Dim Ndx As Integer

For Ndx = 1 To 56
Cells(Ndx, 1).Interior.ColorIndex = Ndx
Cells(Ndx, 2).Value = Ndx
Next Ndx
End Sub


See also
http://www.mvps.org/dmcritchie/excel/colors.htm




--
Regards Ron de Bruin
http://www.rondebruin.nl


"tandavina" wrote in message
...

How/Where do I get the color index?
I used the names of the colors:


Code:
--------------------
For i = 1 To grpnr
Select Case D1(i)
Case Cells.Interior("Light Orange")
grpsize(i) = 6
Case Cells.Interior("Aqua")
grpsize(i) = 4
Case Cells.Interior("Plum")
grpsize(i) = 3
Case Cells.Interior("Rose")
grpsize(i) = 2
Case Else
MsgBox "error in grouping color"
End Select
Next i
--------------------


only to return error.


--
tandavina
------------------------------------------------------------------------
tandavina's Profile: http://www.excelforum.com/member.php...o&userid=30334
View this thread: http://www.excelforum.com/showthread...hreadid=511457