Command Button Macro

I would like to creat a "command button" for users of my spreadsheet to
undo all autofilters. Is there a written macro for this?

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

--
Don Guillett
SalesAid Software
dguillett1@austin.rr.com
"Patty" <patricia.collins@sappi.com> wrote in message
news:1147966715.523444.237110@i40g2000cwc.googlegroups.com...
>I would like to creat a "command button" for users of my spreadsheet to
> undo all autofilters. Is there a written macro for this?
>