remove autofilter results with a macro

  • Thread starter Thread starter Muth69
  • Start date Start date
M

Muth69

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.
 
Back
Top