How do I clear filters in Worksheets and Tables?

[M McAllister]

Using Excel 2010 on Windows 7,

I have a workbook with many sheets, some of which contain more than 1 data data table that is fed by data connections.

I have the following code. When the code runs, if the cursor is within a table, the table's filters are cleared. But if the active cell is not in the table, then the tables filters are not cleared.

Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Worksheets
        With ActiveSheet
           If .FilterMode Or .AutoFilterMode Then
                .ShowAllData
            End If
        End With
    Next

I want to loop through each table and clear any filter, if it exists.

How do I make this happen?

Any help is greatly appreciated.
Thank you,
Mathew

 

[M McAllister]

Okay I found and modified my code to this:

Dim ws As Worksheet
    Dim lo As ListObject
    
    For Each ws In ActiveWorkbook.Worksheets
        For Each lo In ws.ListObjects
            If lo.AutoFilter.FilterMode Then
                lo.AutoFilter.ShowAllData
            End If
        Next
    Next

That clears the filters but it also throws an error:
Run-Time error '91':
Object variable or with block variable not set

What's up with that?

Thanks,
Mathew