VBA Event Worksheet_Change not working

[erinmkurtz]

Ok, I have super simple code and it refuses to work. I've used this code several times before on other workbooks and has done wonderfully.

Sub Worksheet_Change(ByVal Target As Range)
If Target.Address.Value = "$A$1" Then
Call MyMacro
End If
End Sub

Application.EnableEvents = True (I've triple checked)

My References, Microsoft Scripting Runtime is checked, Microsoft Forms 2.0 Object Library is selected.

Fresh out of ideas. I've read through all of the previous posts about this issue. Any fresh suggestions?

Thanks!

 

[Osvaldo Palmeiro]

Re: VBA Eveent Worksheet_Change not working

Have you tried ?

Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$1" Then
  Call MyMacro
 End If
End Sub

 

[pvr928]

Re: VBA Eveent Worksheet_Change not working

Hi erinmkurtz

Change:

If Target.Address.Value = "$A$1" Then

to:

If Target.Address = "$A$1" Then

Cheers

pvr928

 

[erinmkurtz]

Re: VBA Eveent Worksheet_Change not working

I must have left in the .Value when I was trying to figure out this issue. I did remove it and I am still seeing the same issue.

Have you tried ?

Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$1" Then
  Call MyMacro
 End If
End Sub

 

[Fluff]

Re: VBA Eveent Worksheet_Change not working

Try running this

Sub chk()
Application.EnableEvents = True
End Sub

& then try your event code again.

 

[steve the fish]

Re: VBA Eveent Worksheet_Change not working

Check the code is in the appropriate sheet module and make sure you are changing cell A1 on its own. No other cells changed at same time.

 

[erinmkurtz]

Re: VBA Eveent Worksheet_Change not working

Yes, it is in the correct sheet. I do have two cells changing at the same time (A1, H1), but I've never seen that be an issue before.

 

[steve the fish]

Re: VBA Eveent Worksheet_Change not working

If Target.Address = "$A$1" Then

This isnt true then

 

[steve the fish]

Re: VBA Eveent Worksheet_Change not working

Try using this instead:

If Not Intersect(Target, Range("A1")) Is Nothing Then
    MsgBox "Works!"
End If

 

[Fluff]

Re: VBA Eveent Worksheet_Change not working

How is A1 being changed?
Manually, by formula, or someother way?