Maybe
Code
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim oTbl As ListObject
'This macro removes any Table filtering in
'order to display all of the data but it does not remove the filter arrows
For Each oTbl In Sh.ListObjects
oTbl.AutoFilter.ShowAllData
Next oTbl
Dim pSlcr As SlicerCache
For Each pSlcr In Sh.SlicerCaches
pSlcr.ClearManualFilter
Next
End Sub
Display More