Quick Macro Tweak - Clearing Filters For All Tables In Active Sheet

[CyrusTheVirus]

Hi everyone,

So I have the below code that clears the filter of every table within a workbook, but looking to modify it to only clear filters for all tables of the active sheet (not the whole workbook). How do I do that?

Dim ws As Worksheet
Dim oList As ListObject


For Each ws In ActiveWorkbook.Worksheets
    
    For Each oList In ws.ListObjects
        
        oList.AutoFilter.ShowAllData
            
    Next oList
        
Next ws

 

[Michael M]

Try

Sub MM1()
Dim ws As Worksheet, oList As ListObject
Set ws = ActiveSheet
    For Each oList In ws.ListObjects
        oList.AutoFilter.ShowAllData
    Next oList
End Sub

 

[ajm]

Hi everyone,

So I have the below code that clears the filter of every table within a workbook, but looking to modify it to only clear filters for all tables of the active sheet (not the whole workbook). How do I do that?

Dim ws As Worksheet
Dim oList As ListObject


For Each ws In ActiveWorkbook.Worksheets
 
    For Each oList In ws.ListObjects
     
        oList.AutoFilter.ShowAllData
         
    Next oList
     
Next ws

or simply:
For Each oList In activesheet.ListObjects
oList.AutoFilter.ShowAllData
Next oList

removing "For Each ws In ActiveWorkbook.Worksheets" and its associated "Next ws" and the declaration "Dim ws..."

i haven't tested this. just thought it might work.