HI

A quick way would be
Private Sub Worksheet_Calculate()
d27 = Range("d27").Value
e27 = Range("e27").Value
f27 = Range("f27").Value
g27 = Range("g27").Value
h27 = Range("h27").Value
i27 = Range("i27").Value
max_val = d27 + e27 + f27 + g27 + h27 + i27
If Me.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