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]

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

Nothing more to show, this is all code.

 

[My Aswer Is This]

Your code says this:
Set wsCopy = ActiveSheet
I think you need to use the sheet name here.
Do not use active sheet.

 

[vcoolio]

@Brutusar,

I don't think that you correctly understood Kevin's question:

What is causing the value in cell A1 to change? Is it by data entry of some kind, or is there a formula in that cell?

Is the data in the active sheet entered manually or is it from a "data dump" or a copy/paste from another source? Are you physically entering the value in A1 and then clicking away from the cell or pressing enter or using a directional arrow? In other words, is an event actually happening?

Cheerio,
vcoolio.

 

[My Aswer Is This]

When I try using your code this line of code is causing the problem:
Set wsCopy = ActiveSheet

The active sheet would be the sheet where your change event script is:

So, you should not use active sheet.

Use the actual sheet name.