Hi,
Did you try Advanced filter manually,
the cells around the criteria range (F2:F3) should be clean,
choose an empty column for the criteria range lets say column K
Copy the header of the Names column and paste it in one cell (K3)
put an "a" in the cell below (K4)
select your data table
DataFilter=AdvancedFilter
in the AdvancedFilter dialog box check the list range is correct
Click in criteria range and select the criteria range (K3:K4)
check the Copy to another location radio button
and in copy to area select a cell of a empty column say (N1)
and click OK.
and tell us whether it works.
Cecil

"Alistair" wrote in message
...
Hi Cecil,

sorry to be so long replying but my girlfriend sometimes gets upset if
I spend more time on the computer than with her ;-)

I tried your routine and the first section creates the sheets well -
very handy to have at times. But when I ran the second set to copy
filtered results to each sheet then it copied the entire of the data
from Sheet 1 to each sheet.

I do have Row 1 as headers and if I go to Data Filter Autofilter
then Row 1 works and offers me dropdown lists for all the data below.
just in case I tried running your routine with Autofilter set up in
this way - but it still copied the entire of Sheet 1 each time.

I don't get any errors when it runs so I assume that all is OK (I did
Copy it straight from here and Paste into a new module in the VB editor
- is this correct?). Not sure if the underscores _ are correct (the ones
before the Action and CopyToRange) or have these
been added in the posting?

Thanks for your help so far but any ideas why this happened?

Ever hopeful,

Alistair



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/