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("CritNa mes"), _
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???