How can I clear filters for a table slicer similar to my existing PT slicer clearing macro?

[vbaNumpty]

I use the following code to clear slicers from my PT:

Sub clearSlicer()

Dim pt As PivotTable
Dim cache As Slicer

For Each pt In ActiveSheet.PivotTables
    For Each cache In pt.Slicers
        cache.SlicerCache.ClearAllFilters
    Next cache
Next pt

End Sub

How can I accomplish the same thing but for slicers that are part of a regular Excel Table?

 

[JEC]

Sub jec()
  For Each sl In ActiveWorkbook.SlicerCaches
    sl.ClearManualFilter
  Next
End Sub

 

[vbaNumpty]

Sub jec()
  For Each sl In ActiveWorkbook.SlicerCaches
    sl.ClearManualFilter
  Next
End Sub

Is there a way to edit this as to not clear all slicers in the workbook, but only on a single sheet?

 

[JEC]

Like this

Sub jec()
  For Each oCache In ActiveWorkbook.SlicerCaches
     For Each oSlice In oCache.Slicers
        If oSlice.Parent.Name = "your sheetname" Then oCache.ClearManualFilter
     Next
  Next
End Sub