On Feb 6, 5:13*pm, "John" wrote:
I have a Table set up in Excel 2007, and I am using the following code to
extract data to another sheet, using advanced filter:

Sub FilterAllNames()
* * Worksheets("DBase").Range("DBase").AdvancedFilter Action:=xlFilterCopy,
_
* * * *CriteriaRange:=Worksheets("Reports").Range("CritN ames"), _
* * * *CopyToRange:=Worksheets("Reports").Range("Output" ), Unique:=False
*End Sub

*The sub works, but it strips my table (in the DBase worksheet) of the
drop-down arrows. The table
*is apparently still there because the Table Tools Design tab is still
displayed, and the Total Row box still works. Why do I lose my drop-downs,
or how do I get them back???

By drop down arrows, do you mean drop down arrows from the filter? if
so, advance filter does not have drop down arrows, just auto filter