Display a message when a Cell value exceeds 75% of the total allowed expenditure

[chamdan]

How can you display a message when a cell value exceeds 75 % of the allowed expenditure.

Let us say the Cell in D6 is the Maximum allowed and the Cell D5 is the Rolled up total of expenditure.

e.g.: If D6 is $100,000 then, when D5 exceeds $75,000 then either make the cell blink or display a message saying: "You have reached the 75% of the allowed expenditure and therefore requires your attention!"

I frankly could not find a way to that and your help will be much appreciated.

Thanks in advance!

 

[chamdan]

Got it resolved by using the following event:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("D5").Value > Range("D6").Value * 0.75 Then
       msg = "Expenditure has reached the 75% of the acceptable amount!"
       pt = MsgBox(msg, vbCritical, "Exceeded Limits")
    End If
End Sub