hi,
in a blank workbook, paste the following code.
to call the
vb window press alt+F11
Sub macGetColors()
' Macro written 2/10/02 by FSt1
Sheets("Sheet1").Select
Range("B2").Select
Set ci = Range("A1")
ci.Value = 1
Set c = Range("B2")
Do Until ci 56
Set c2 = c.Offset(1, 0)
Set cnum = c.Offset(0, 1)
c.Interior.ColorIndex = ci.Value
c.Offset(0, 1) = ci.Value
ci.Value = ci.Value + 1
Set c = c2
c.Select
Loop
End Sub
It will create a list of all colors and their indexes.
good luck.
-----Original Message-----
Howdie,
If a cell has been coloured, and I want to replace all
the colours to a
new colour, I think I can do a find and replace for that
colours
number... but where do u see its number? (not under
properties...?)
Thanks
D
*** Sent via Developersdex http://www.developersdex.com
***
Don't just participate in USENET...get rewarded for it!
.