Dim i as Long, rng as Range
For i = LaRow To 2 Step -1
Set rng = Range("T" & i)
if not iserror(rng) and isnumeric(rng) then
If rng.Value < 0 Then
Range("A" & i & ":AE" & i).Interior.ColorIndex = 38
Range("A" & i & ":AE" & i).Interior.Pattern = xlSolid
Range("AR" & i).Value = 1
End If
End If
Next


--
Regards,
Tom Ogilvy


"DKY" wrote in message
...

I'm running xl 2003 on both machines and I tried removing quotes and I
get the same error. I dont know what to do.


--
DKY
------------------------------------------------------------------------
DKY's Profile:
http://www.excelforum.com/member.php...o&userid=14515
View this thread: http://www.excelforum.com/showthread...hreadid=393837