I can't seem to find anything similar to this. I'm trying to setup a macro
that will unfilter the sheet if the autofilter has been engaged. I can get
it to work as long as at least 1 column has been autofiltered, but if none
has been I get a run time error 1004. So then I tired a If then, but it
keeps hanging on part of the field. Thanks for your help.

As ALWAYS, post your code for comments

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Muth69" wrote in message
...
I can't seem to find anything similar to this. I'm trying to setup a macro
that will unfilter the sheet if the autofilter has been engaged. I can
get
it to work as long as at least 1 column has been autofiltered, but if none
has been I get a run time error 1004. So then I tired a If then, but it
keeps hanging on part of the field. Thanks for your help.

With worksheets("Input")
'to remove the filter and the arrows
.AutoFilterMode = False

'or to just show all the data and keep the arrows
If .FilterMode Then
.ShowAllData
End If
End With


You could have ignored the error, too:

on error resume next
ActiveSheet.ShowAllData 'keeps the arrows, shows all the data.
on error goto 0

Muth69 wrote:

I can't seem to find anything similar to this. I'm trying to setup a macro
that will unfilter the sheet if the autofilter has been engaged. I can get
it to work as long as at least 1 column has been autofiltered, but if none
has been I get a run time error 1004. So then I tired a If then, but it
keeps hanging on part of the field. Thanks for your help.

--

Dave Peterson