Macro Not Firing

[A-Train]

Hi

I want a message box to popup when cell J5 is >= cell J6 and I am using the following:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$J$5" Then Exit Sub
If [J5].Value >= [J6].Value Then MsgBox "Limit Reached"
End Sub

The above code is working when J5 is manually updated, however J5 is referencing another cell and when the other cell is updated the macro is not firing and the message box is not popping up.

Thanks

A-Train

 

[Michael M]

That's because this line is saying, if you're not in cell J5 then exit the sub

If Target.Address <> "$J$5" Then Exit Sub

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If [J5].Value >= [J6].Value Then MsgBox "Limit Reached"
End Sub

 

[A-Train]

Thanks mate, working perfectly now.

 

[A-Train]

I am still having a problem with this code.

The message box will pop up while I am in the speadsheet fine. However I need it to run in the background. The spreadsheet is constantly being updated with a live web feed and this is what I need to kick off the macro.

Any ideas why this code isn't doing the trick?

Thanks
A-Train

 

[Michael M]

Maybe change the sub to:

Private Sub Worksheet_Calculate()
If [J5].Value >= [J6].Value Then MsgBox "Limit Reached"
End Sub