Colour rows based on value
 

Hello,

I have this code that almost works but just need some help. This looks at
the value of each row, column 3 and colours the entire row with shade 36 if
the cell value is different to the row above (still column 3). However when
the change takes place in column 3 it doesnt shade that row but it shades all
others. So I am almost there but stumped why it does this.

Can anyone help?

Dim lRow As Long
Dim lCol As Long

For lRow = 2 To 9216

If Cells(lRow, 3).Value = Cells(lRow - 1, 3) Then
If IsEmpty(Cells(lRow, 256)) Then
lCol = Cells(lRow, 256).End(xlToLeft).Column
Else
lCol = 256
End If
Range(Cells(lRow, 1), Cells(lRow, lCol)).Interior.ColorIndex = 36
End If
Next

Thanks