Run Time error 438 help

[inq80]

Hello,

I've got a loop in use which colors a cell based on it's value. It works fine, except anything below 50 goes Red; including the blank cells. I need the blank cells to remain their original color I added another if statement for anything <0 but i now get a runtime error 438.

I've tried sorts here including IsEmpty(), but cannot get any of them to work...

How do i get it to only change the value of the cell if it contains a number?

Please Login or Register  to view this content.

thanks

[AB33]

If all the conditions fail the code will pick up the last line

Else

Cells(rn, cn).Interior.Colour = RGB(36, 64, 88)

regardless of the if condition.
If you want to include empty cell

Please Login or Register  to view this content.

[inq80]

excellent AB33, thank you.

Out of curiosity, why have you changed the referral from "CellScore" for "Cell(rn, cn)"

[AB33]

Nothing special!
You have assigned
Cells(rn, cn).Value to CellScore.
I understand it might be easier to understand the flow of the code and might not matter in few lines, but in large code you are adding extra line for the code to go through and can be avoided as you can jump straight in the range instead of assigning the range in to another variable.