Hi,

I need to copy all the data from SheetB with ENV_342 criteria to SheetA. I
am using the advanced filter. In this code I am using the range A5:B911, but
I need to replace this by FILTER naming range. If I just replace the text
€œA5:B911€� with FILTER I received the execute error message 1004. Do anyone
have a solution?

I am using Excel 2003.

This is my actual code

Sheets("Sheet B").Range("A5:B911").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A3"), Unique:=False

Range("A4").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="ENV_342", RefersTo:=Selection


Thanks
Catherine