Macro to reset filters in all tables in entire workbook

[sspatriots]

Hi,

I have this issue of people saving a shared workbook with filtered columns in the tables or sometimes turning the autofilter completely off. This workbook has many tables and some worksheets have as many as 6 tables on them. I need to be able to force the autofilter on for any tables in the workbook where a user turned them off by accident and likewise, if the user leaves a table with a filtered column and saves it that way, I need the column filter turned off and just the table filter left on. The code I found below does take care of turning off any table columns that are filtered, but I cannot figure out how to get this code to do the rest.

Any help would be much appreciated.

Thanks, SS

Sub ResetFilters()
    On Error Resume Next
    For Each wrksheet In ActiveWorkbook.Worksheets
        wrksheet.ShowAllData 'This works for filtered data not in a table
        For Each lstobj In wrksheet.ListObjects
            If lstobj.ShowAutoFilter Then
                lstobj.Range.AutoFilter 'Clear filters from a table
                lstobj.Range.AutoFilter 'Add the filters back to the table
            End If
        Next 'Check next worksheet in the workbook
    
   
    Next
    
    
End Sub

 

[sspatriots]

Actually, I think i just stumbled across the solution through trial and error... In case this is of any use to anyone, here it is...

Sub ResetFilters()
    On Error Resume Next
    For Each wrksheet In ActiveWorkbook.Worksheets
        wrksheet.ShowAllData 'This works for filtered data not in a table
        For Each lstobj In wrksheet.ListObjects
            If lstobj.ShowAutoFilter Then
                lstobj.Range.AutoFilter 'Clear filters from a table
                lstobj.Range.AutoFilter 'Add the filters back to the table
            End If
        Next 'Check next worksheet in the workbook
    
    
        For Each lstobj In wrksheet.ListObjects
            If Not lstobj.ShowAutoFilter Then
                lstobj.Range.AutoFilter 'Add to the table
            End If
        Next 'Check next worksheet in the workbook
    Next
End Sub