Changing the font color of a cell based on value in another cell

I can get this to work on a single range of cells but I can’t get it to work on a second or third range of cells. My goal is to be able to change the “Goal” value in a primary cell and have the range of cells associated with that goal change colors from red, green, or black if they meet, exceed, or are below the goal.

Goal 95% then any cell that is less than 95% the font color will be red.
Goal 95% then any cell that is Greater than 95% the font color will be red.

and so on...

Here's the code I have at the moment and am currently getting a compile error of Next without For and I'm pretty much stuck at this point.

Please Login or Register  to view this content.

Any help is appreciated, thanks.

I fixed the Loop error but it's still not working as intended.

Thanks you that cleared up the error but it's still not changing the cell font colors.

I don't understand the following line:

Please Login or Register  to view this content.

Stroke is defined as a range of addresses, which does not have a value, I get a runtime error on that line. Elements of the range have values, but the range itself does not have a value.

Please let us know what you are trying to do with that line.

Lewis

I thought that could be in issue.

I dimmed Stroke as range then set the range
Set Stroke = Range("F4:K4")

I'm calling that stroke range to set the measure value for that range. I don’t actually know if that’s the proper/correct way to call it.

SOLVED!

Please Login or Register  to view this content.