iLastRow = Cell(Rows.Count,"I").End(xlUp).Row
For i = 1 To iLastRow
If Cells(i,"I").Value <0 or Cells(i,"L").Value < 0 Or _
Cells(i,"M") < 0 Then
MsgBox "Site balance on rfow " & i
End If
Next i

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"Aaron" wrote in message
...
Hello All,

Looking for code that does the following.
Reviews cells I4,L4 and O4 If any of these cells are <0 andif any of the
same cells are 0 then Msgbox "Site Balance" else do nothing. Then next
row
and keep doing it until the end of page.

Thanks in advance!!
Aaron