Hi nobby

Sorry for the late response I was on vacation. I would try this for
your problem

Private Sub Worksheet_Calculate()
max_val=0
For Each n In Range("D27:I27")
If IsNumeric(n) Then
max_val = n + max_val
End If
Next n
If Range("o16").Value max_val Then
MsgBox "too high - do something!"
End If
End Sub


--
jetted
------------------------------------------------------------------------
jetted's Profile: http://www.excelforum.com/member.php...o&userid=17532
View this thread: http://www.excelforum.com/showthread...hreadid=556609