Switching autofilter off using code

[Matt]

Using code how can i firstly check to see if the autofilter is on and then if the filter is on, switch off so all records are showing.

hope someone can help

thanks

Matt

 

[Ricky Morris]

Try this:

Sub FilterOff()
On Error Resume Next
ActiveSheet.ShowAllData
If Err.Description = "ShowAllData method of Worksheet class failed" Then
Selection.AutoFilter
endif
End Sub

 

[Matt]

Cheers Ricky

 

[DZarlengo]

Here's another way...

If Sheets("Sheet1").FilterMode = True Then _
Sheets("Sheet1").ShowAllData

 

[Matt]

Cheers