Thank you for the reply Joel
unfortunatly exactly same result
the data is from a microsft query but I copied and paste special values to
new sheet and copied new macro of advanced filter while copying it worked
when ran after failed
so weird
Regards
Tina
"joel" wrote:
>
> See if these changes help
>
> with ActiveSheet
> .Columns("A:G").AdvancedFilter Action:=xlFilterCopy, _
> CriteriaRange:=.Range("I1:I2"), _
> CopyToRange:=.Range("K1"), Unique:=False
> end with
>
>
> --
> joel
> ------------------------------------------------------------------------
> joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
> View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=154699
>
> Microsoft Office Help
>
> .
>