This works for me.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target 100 Then
MsgBox ("Changed Value")
End If
End Sub


"ExcelMonkey" wrote in message
...
I have a simple change event in Sheet1. Why is this not firing when I type
a
number greater than 100 in A1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target 100 Then
MessageBox ("Changed Value")
End If
End Sub

Thanks