How to clear all filters in worksheet for all columns

[Helios]

I need to know how to write the code for a command button to clear all
filters for a spreadsheet that contains several columns of lists. I want to
click the button and it clear all fitered list back to "all"

 

[Don Guillett]

try
Sub showall()
On Error GoTo away
ActiveSheet.ShowAllData
away:
End Sub

 

[Helios]

Thanks for the reply, I will try it.

try
Sub showall()
On Error GoTo away
ActiveSheet.ShowAllData
away:
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)