Hi,
I am using the following code to loop through all items in a slicer and then do a set of actions:
Dim sI As SlicerItem, sI2 As SlicerItem, sC As SlicerCache
Set sC = ActiveWorkbook.SlicerCaches("Slicer_Rep_Name")
With sC
For Each sI In sC.SlicerItems
sC.ClearManualFilter
For Each...