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
_________________
It's never too late to learn something new.
Ricky
This message was edited by Ricky Morris on 2002-04-17 10:04