VBA: Clear Slicers From Specific Sheet or Active sheet

[rubenidas]

Hi,
I am trying to modify my code to clear the slicers from the active sheet only. I have two tabs with two different dashboards and just need the macro to clear the slicers depending which sheet I'm on. I tried adding the name of the sheet after ActiveWorkbook but no luck.

any help is appreciated!

Sub clearSlicers1()Application.ScreenUpdating = False


     Dim slicers As SlicerCache
  
    
  For Each slicers In ActiveWorkbook.SlicerCaches
  
      slicers.ClearManualFilter
       
    Next slicers
    


End Sub

 

[igold]

If you have not renamed your slicer from the default name, how about something like this...

Sub clrSlicer()
    
    Dim sln
    Dim sct As Integer, i As Integer
    Dim ws As Worksheet: Set ws = ActiveSheet
    Dim wb As Workbook: Set wb = ThisWorkbook
    On Error Resume Next
    sct = wb.ActiveSheet.Shapes.Count
    For i = 1 To sct
        If wb.ActiveSheet.Shapes(i).Type = msoSlicer Then
            sln = wb.ActiveSheet.Shapes(i).Name
            wb.SlicerCaches.Item("Slicer_" & sln).ClearManualFilter
        End If
    Next
            
End Sub