Morning All,

I am currently using the code below without any problems.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("B3:x3")) Is Nothing Then
    Dim DataSH As Worksheet
    Set DataSH = Sheets("data")
    DataSH.Range("A:AG").AdvancedFilter action:=xlFilterCopy, copytorange:=Range("B10:AG10"), criteriarange:=Range("B2:X3")
  End If
End Sub
However, I now want to extend the Data.SH.Range to column EA. I have tried to simply change "A:AG" to "A:EA" and then the copytorange from "B10:EA10" but this causes an error in the code.

I would really appriciate it if someone could show me where I am going wrong.

Regards

Howardjo