How to use a loop to clear all filters in all tables in a workbook?

[M McAllister]

Windows 7, Excel 2010

I have workbook with 6 data tables fed by data connections. When I close the workbook, I want to clear all the filters in each of the tables before saving and closing the workbook.

I have a lazy macro that loops through the each table and sheet, but doesn't clear the table filters.

Dim ws As Worksheet
Dim lo As ListObject
    For Each ws In ActiveWorkbook.Worksheets
    For Each lo In ws.ListObjects
        ws.Activate
        With ActiveSheet
            If .AutoFilterMode Then
                If .FilterMode Then
                    .ShowAllData
                End If
            End If
        End With
        
    Next
    Next

Any help is appreciated.

Thanks,
Mathew

 

[M McAllister]

I solved the table update by changing the 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

The tables update but it's throwing an error "Run-time error '91': Object variable or With block variable not set". The highligted line in the debug is:

If lo.AutoFilter.FilterMode Then

I've looked at examples but I don't know how to solve this.
Any help is appreciated. Thank you in advance.

Mathew