Hi

Case Cells(CurrRow, 8) < 80
CurrRow = Thing.Row
Range(Cells(CurrRow, 8), Cells(CurrRow, 8)).Select
'Grab column 1 where found
With Selection.Interior
.ColorIndex = 3 '3=red
.Pattern = xlSolid
.Font.ColorIndex=2
End Wit

--
jindo
-----------------------------------------------------------------------
jindon's Profile: http://www.excelforum.com/member.php...fo&userid=1313
View this thread: http://www.excelforum.com/showthread.php?threadid=37654