resetting all filters quickly

[markster]

Is there a quick way of resetting all filters to me having to find the blue arrows on the individual filters of a large spreadsheet. I don't want to remove the filter arrows just reset them all quickly. Perhaps some VBA code will do it - can anyone help?
Cheers

 

[erik.van.geit]

Hi, markster,
try something like this

Sub reset_autofilter1()
Application.ScreenUpdating = False
Selection.AutoFilter
Selection.AutoFilter
Application.ScreenUpdating = True
End Sub

OR

Sub reset_autofilter2()
'Erik Van Geit
'051101
Dim c As Range
Application.ScreenUpdating = False
For Each c In Selection.Resize(1, Selection.Columns.Count)
    Selection.AutoFilter Field:=c.Column
Next c
Application.ScreenUpdating = True
End Sub

kind regards,
Erik

 

[klb]

Double clicking on the filter button should do it unless you have any blank columns in your filter range. Then you may want to select your entire range before double clicking.