"Shilps" wrote:

Hi,
I am trying to use Advanced Filter. I have this code

Range("A5:J500").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Sheets( _
"Sheet3").Range("A6:B8"), CopyToRange:=Range("A136"), Unique:=False
Now the problem with the macro is that even when criteria is changing in
Range "A6:B8", it is always giving the same result that it gave when it was
run for the first time.

What is the reason for this error? Please help.
TIA
Shilps


Try CopyToRange:=Range("A136:J136") don't know why but seeems to work for me

Tina