Very simple Advanced Filter not working in macro

[Adam]

Columns("AB:AB").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Columns( _
"AC:AC"), Unique:=True

Simple Advanced Filter right?

Why will it not work within my macro?

i've even tried seperating it into its own macro and calling the rest of the
original macro but this still doesn't work.

Contained in column AB are codes containing letters and numbers, multiples
of these and also blank cells.

The strange thing is that if i do the AdvFilter manually first, then delete
the info and run the macro again it actually works! But this is a crazy way
of working and i need to do it regularly so any help much appreciated!

cheers

 

[Joshua Fandango]

Hi Adam,

A named range "Extract" is being created in column AC where the data
is filtered to; if you use the following after the advanced filter has
run this should solve the problem.

ActiveWorkbook.Names("Extract").Delete

HtH,
JF

 

[Adam]

Hi Joshua

I've copied it just as you've written but it's coming back with an
'Application-defined or object-defined error'?

i am missing something?

Cheers

 

[Bernie Deitrick]

Adam,

Cell AC1 must be blank or have the same heading as the list in AB

HTH,
Bernie
MS Excel MVP

 

[Adam]

Hi Bernie

Yes they have the same heading in both AB1 and AC1

Adam