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

 

[kevin9999]

Try changing:

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

to:

If Not Intersect(Range("A1"), Target) Is Nothing Then

 

[My Aswer Is This]

We would need to see what this script is supposed to do.
CopyAndAppendRange

 

[My Aswer Is This]

Are you sure the script your calling is a module script?

 

[Brutusar]

No, still not running. It is possible it can be a setting in my Excel?

 

[Brutusar]

No, still not running. It is possible it can be a setting in my Excel?

This is the "full code" after changing "If Target.Address = "$A$1" Then" to "If Not Intersect(Range("A1"), Target) Is Nothing Then"

 Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Range("A1"), Target) Is Nothing Then
   
        Call CopyAndAppendRange
       
    End If
   
End Sub


Sub CopyAndAppendRange()

   Dim wsCopy As Worksheet
   Dim wsAppend As Worksheet
 
   Set wsCopy = ActiveSheet
   Set wsAppend = Sheets("Regular")
 
   wsCopy.Range("A1:H1").Copy
   wsAppend.Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial xlPasteValues
 
   Application.CutCopyMode = False
   Application.ScreenUpdating = True
  
End Sub

 

[kevin9999]

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?

 

[My Aswer Is This]

Try changing:

to:

If Not Intersect(Range("A1"), Target) Is Nothing Then

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

All the time and it works.

 

[Brutusar]

There is no formulas in cell A1, just a plain text string.

 

[Georgiboy]

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