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 J6 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

 

[Misca]

The first line blocks other changes out: If Target cell is any other than J5 then Exit Sub.

Try using If... Else... or start with the second one.