Excel 2013 VBA clear active filter

Question

I need to clear any active filters from a sheet before running a certain macro, this line works just fine IF there is an active filter on

If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData

However if no filters are selected it returns the error

Runtime error '1004';
ShowAllData method of Worksheet class failed

I got that code from an answer to this question Excel 2013 VBA Clear All Filters macro

However that question doesn't explain how to ignore the line if no filters are active.

How do I ignore this line if there are no currently active filters applied?

EDIT

For example, all column headings have been auto filtered, so if my sheet is filtered by 'Female' for example I need to remove that filter before running the macro, however if no filters have been applied, just run the macro as normal

Answer 1

Use FilterMode instead of AutoFilterMode. I have dealt with filters frequently and this code works fine.

If ActiveSheet.FilterMode Then
    ActiveSheet.ShowAllData
End If

Make sure the worksheet is not protected as this also gives the 1004 error.