maybe this will help


Sub Colors()
Dim ctr As Long

For ctr = 1 To 56
Cells(ctr, 1).Interior.ColorIndex = ctr
Cells(ctr, 2).Value = "'" & Right("000000" & _
Hex(ThisWorkbook.Colors(ctr)), 6)
Cells(ctr, 3).Value = ctr
Cells(ctr, 4).Value = Cells(ctr, 1).Interior.Color
Cells(ctr, 2).Font.Name = "Arial"
Cells(ctr, 2).HorizontalAlignment = xlRight
Cells(ctr, 3).HorizontalAlignment = xlCenter
Cells(ctr, 4).HorizontalAlignment = xlLeft
Next ctr

End Sub

--


Gary


"JAD" wrote in message
...
Can anyone point me to a source that will give me all the colors available
with code that I can use for the fore and background colors in a Toggle
Button? Also, instead of entering a color in VB such as vbBlack, can you also
defined the color by entering numbers? Any help would be appreciated. Thank
You, JAD