If cell value is not equal to zero then message box

Question

I have written this code to automatically pop up a message box when the value of a cell is not equal to zero. This cell depends on the value of cell A minus the value of cell B.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("H60") <> 0 Then
MsgBox "Not Equal zero!!!!"
End If
End Sub

However, when the cell H60 is zero, the message box still continues to pop up. Why?

Answer 1

use .Value2

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("H60").Value2 <> 0 Then
    MsgBox "Not Equal zero!!!!"
End If
End Sub

I would however recommend you put some sort of test in there to only fire on certain cell changes, you don't want it firing every time anything is changed on the sheet.

You mentioned the cell relies on 2 other cells, you could have your test on those with something like this:

Private Sub Worksheet_Change(ByVal Target As Range)
If target.address = "$I$60" or target.address = "$J$60" then
    If Range("H60").Value2 <> 0 Then
        MsgBox "Not Equal zero!!!!"
    End If
end if
End Sub

This will make it only fire if I60 or J60 are what was changed on the sheet, you can obviously change these to other cell references if you need, I assumed your formula is using I60 and J60