excel 2007 messagebox macro help

[lafhunting]

I have a running total in B2 from cells D4,G4 and H4, If the number in B2 goes to a negative number I need a message box to automaticly pop up stating that you have a negative balance


I have tried several macros and no luck
Sub balance ()
if range("B2") < 0 then
msgbox "Check Your Balance!"
End If
End Sub

any HELP would be greatful

<colgroup><col><col><col span="5"></colgroup><tbody>
</tbody>

 

[Michael M]

Change to this and paste into the sheet module

Sub worksheet_Change(ByVal target As Range)
If Range("B2") < 0 Then
MsgBox "Check Your Balance!"
End If
End Sub

 

[Trebor76]

Hi lafhunting,

Try this event macro* on the sheet in question:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

    If [B2].Value < 0 Then
    
        MsgBox "Check your balance!"
    
    End If

End Sub

* To install this macro follow these four steps:

1. Copy my suggested code to the clipboard (Ctrl + C)
2. Right click on the tab you wish to apply the code to and from the shortcut menu select View Code
3. Paste in my code (Ctrl + V) from step 1
4. From the File menu select Close and Return to Microsoft Excel

Note you could also do this via an If statement worksheet formula with conditional formatting to make it stand out.

HTH

Robert