How to clear filter but retain sort on AutoFilter?

[cr731]

Is there a way - whether VBA or not - to clear an AutoFilter's filters but retain the sort (arrows on the AutoFilter dropdowns)?

I have read that ActiveSheet.ShowAllData does this... but when I use it, it also clears the sort, so I'm not sure what else to try?

 

[AlphaFrog]

Try this...

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

 

[cr731]

That still clears the AutoFilter sort though.

 

[AlphaFrog]

It worked for me and kept the autofilter dropdown arrows.

Give this a try...

ActiveSheet.Autofilter.Range.Autofilter