Hi,
I have the code
If Len((Range("I10")) = 3 And Mid((Range("I10")), 3, 1) > 5 Then
(Range("I10").Interior.ColorIndex = 3
ElseIf Len(Range("I11")) = 4 And Mid((Range("I11")), 3, 2) > 5 Then
Range("I11").Interior.ColorIndex = 3
ElseIf Len(Range("I12")) = 5 And Mid((Range("I12")), 3, 3) >...