Macro to undo filters

[Alan S]

Hi Guys,

I need to write a macro that will undo all filters that
are currently on a worksheetsheet. Do I have to make
sure that all the filters are undone individually or is
there a way I can do all at the same time?

Thanks
Alan

 

[Ron de Bruin]

Hi Alan

Check out Debra's site for everything about filters
http://www.contextures.com/tiptech.html

 

[Dave Peterson]

Does undo mean remove the dropdown arrows?

activesheet.autofiltermode = false

Or just showall?

With Activesheet
If .AutoFilterMode Then
If .FilterMode Then
.ShowAllData
End If
End If
End With

 

[Dave Peterson]

In fact:

With ActiveSheet
If .FilterMode Then
.ShowAllData
End If
End With

will work, too.