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

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

What does your custom function MessageBox do?

When you set a breakpoint in the function, does the event macro fire?

In article ,
ExcelMonkey wrote:

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

Change: MessageBox ("Changed Value")
To: MsgBox "Changed Value"

Merjet

Besides the obvious error with MessageBox vice MsgBox, this version worked
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

Perhaps you have disabled events.

--
Regards,
Tom Ogilvy


"ExcelMonkey" wrote:

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

It does not do anything. I just want proof that the macro is firing. And
its not firing. Even if I put a break in, it does not fire. I can't seem to
get any examples to work. Why would this be?

EM

"JE McGimpsey" wrote:

What does your custom function MessageBox do?

When you set a breakpoint in the function, does the event macro fire?

In article ,
ExcelMonkey wrote:

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

Tom Ogilvy mentioned that you may Events Disabled.

I'm sure there is another way to enable them, but here is one way.

Sub EnableEvents()
Application.EnableEvents = True
End Sub

Run manually.

Regards,
Paul


"ExcelMonkey" wrote in message
...
It does not do anything. I just want proof that the macro is firing. And
its not firing. Even if I put a break in, it does not fire. I can't seem
to
get any examples to work. Why would this be?

EM

"JE McGimpsey" wrote:

What does your custom function MessageBox do?

When you set a breakpoint in the function, does the event macro fire?

In article ,
ExcelMonkey wrote:

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

Couple of possibilities:

because you (or a workbook/add-in you've opened) have disabled events
with

Application.EnableEvents = False

or because the code is not in the correct worksheet module

or because macros are disabled...



In article ,
ExcelMonkey wrote:

It does not do anything. I just want proof that the macro is firing. And
its not firing. Even if I put a break in, it does not fire. I can't seem to
get any examples to work. Why would this be?

Yup events were not enabled. Not sure how this happened.

Thanks

EM

"JE McGimpsey" wrote:

What does your custom function MessageBox do?

When you set a breakpoint in the function, does the event macro fire?

In article ,
ExcelMonkey wrote:

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