Code not working - what is wrong.

[Brutusar]

Hi, I am using the code below to start a different Sub when the value of cell A1 in the active sheet is changed. However, the code is not working, meaning nothing is happening. The sub that is supposed to be started when the value is changed is working fine when run directly. I can't find my mistake in the code, but it must be something?

 Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$1" Then
    
        Call CopyAndAppendRange
    End If
    
End Sub

 

[Brutusar]

Do you have the Worksheet_Change code above pasted in the correct sheet module?

Yes, it is in the correct module

 

[kevin9999]

Is there any chance of sharing your file via Google Drive, Dropbox or similar file-sharing platform?

 

[Georgiboy]

If you run it as below, do you get the message box after every change:

 Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$1" Then
        MsgBox "Yes"
    End If
    
End Sub

 

[My Aswer Is This]

I would have it call a simple little modular code like this and see if it works.

Msgbox "Hello"

 

[Georgiboy]

Also, make sure that the CopyAndAppendRange sub is in a standard module and not with the WorksheetChange code.

 

[kevin9999]

I use the code like this:
If Target.Address = "$A$1" Then

All the time and it works.

Fair enough point - I guess I'm more used to looking at multi-cell ranges.

 

[My Aswer Is This]

I see here you're attempting to copy the values from the same sheet with the change event code:
Set wsCopy = ActiveSheet

 

[My Aswer Is This]

Show us all the things you have in the sheet change event script sheet.
Maybe you have more code there.

 

[Brutusar]

Is there any chance of sharing your file via Google Drive, Dropbox or similar file-sharing platform?

Sure, no problem

 

[Brutusar]

If you run it as below, do you get the message box after every change:

 Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$1" Then
        MsgBox "Yes"
    End If
   
End Sub

Nope, no message box popping up