Font color setting problem

[vrzimmerm]

I am trying to set the color of a range of cells based on the number
of a looping variable (Count). The following code gives me an
error indicating that the color can't be set using a variable name.
What would be an alternate way to do this?


For Count = 1 To 60

Sheets("Sheet3").Select
Range("B5").Select
Selection.Font.ColorIndex = Count

Thanks.

 

[Guest]

The ColorPalette for ColorIndex only has 56 colors. This will change so fast
that you will only see the first and last colors.

For Count = 1 To 56

Sheets("Sheet3").Range("B5").Font.ColorIndex = Count
Count = Count + 1
Next

 

[PCLIVE]

This is because the color index only goes up to 56. The error occurs when
you're trying to set the index to 57.

See here.
http://www.mvps.org/dmcritchie/excel/colors.htm#colorindex

 

[Guest]

I believe there are only 56 colors. To see all of them:

Sub test()
For Count = 1 To 56
Sheets("Sheet3").Select
Range("B" & Count + 4).Interior.ColorIndex = Count
Next Count
End Sub