wsnyder
Board Regular
- Joined
- Sep 23, 2018
- Messages
- 223
- Office Version
- 365
- Platform
- Windows
Hi all,
Using Excel 365.
My snippet is throwing an error here
Not sure why that is?
Thanks
-w
Full snippet:
Using Excel 365.
My snippet is throwing an error here
VBA Code:
If lo.FilterMode Then
Not sure why that is?
Thanks
-w
Full snippet:
Code:
Sub ShowAll_Lists()
Dim wb As Workbook
Dim ws As Worksheet
Dim lo As ListObject
Set wb = ThisWorkbook
For Each ws In wb.Worksheets
For Each lo In ws.ListObjects
With lo.AutoFilter
If lo.FilterMode Then
lo.ShowAllData
Else
lo.ShowAutoFilter = True
End If
End With
Next lo
Next ws
Set wb = Nothing
End Sub