Percentage Color Coding Question

[ATY807]

I have a column of numbers (in percentages) which is a part of a pivot table. I need to color code this column as follows:

- Percentages above 95% "Good"
- Percentages >= 90% and lower than 95% "Neutral"
- Percentages < 90% "Bad"

I would like to use Excel Styles for colors.

I have written below code:

Sub Percentcolorcode()
Dim Score As Integer
Score = ActiveCell.Value
Select Case Score
Case Is >= 0.95
ActiveCell.Style = "Good"
Case Is >=0.9 and <0.95
ActiveCell.Style = "Neutral"
Case Is < 0.9
ActiveCell.Style = "Bad"
End Select
End Sub

It gives me an error for the line Case Is >=0.9 and <0.95. When I remove that line, I would still expect that it runs for the two other conditions, but it only color codes one cell from the selected column and that is with the wrong color.

Could someone please help with this code.

Thank you,

 

[mikerickson]

The < .95 is implied, since if the cell value were >= .95, the prior branch would have exicuted.
You can not use AND within the Case line
Try

Select Case Active.Cell.Value
    Case Is >= .95
        MsgBox "big"
    Case Is >= . 9
        MsgBox "not quite so big"
    Case Is < .9
        MsgBox "bad"
End Select

 

[ATY807]

The < .95 is implied, since if the cell value were >= .95, the prior branch would have exicuted.
You can not use AND within the Case line
Try

Select Case Active.Cell.Value
    Case Is >= .95
        MsgBox "big"
    Case Is >= . 9
        MsgBox "not quite so big"
    Case Is < .9
        MsgBox "bad"
End Select

Thanks for your response Mike. Your template does resolve the error resulting from the use of AND within the Case command, but I still have the same issue, it only applies the color coding to one cell, and with wrong color. See the example in the attached image where 91.90% is supposed to be marked with Neutral cell style, but it's colored green.

 

[mikerickson]

That code only addresses the Active Cell and the color it is supposed to make the cell. If you want a different color, change the color of the Style to match your desire.