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.

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

" wrote:


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.

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...htm#colorindex


wrote in message
ups.com...

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.

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





--
Hope that helps.

Vergel Adriano


" wrote:


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.

;7516647 Wrote:
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.

I think what you probably want to do is something like this:

Sub setColor()
Sheets("Sheet1").Select
Range("B5").Select
For Count = 0 To 56
Selection.Font.ColorIndex = Count
ActiveCell.Offset(1, 0).Activate
Next
End Sub

Problem is that the colors only go up to 56. I suspect the error that
you're getting is "unable to set colorindex property of the Font class."
That's kinda misleading. You CAN use the counter as you outlined
above; the problem is that you're asking the code to set the ColorIndex
to a number that it can't do.

HTH

Cheers
Geoff


--
geofflilley