Resetting all Slicers

[UniMord]

I have 4 Slicers and would like to be able to reset them all at once.
Is there a button or setting that I'm overlooking? If not, how would I go about it in VBA?

 

[xld]

Dim slcr As SlicerCache

    For Each slcr In ActiveWorkbook.SlicerCaches
    
        slcr.ClearManualFilter
    Next slcr

 

[UniMord]

Thank you. At the moment, I have just these 4 Slicers, so your code does the trick. However, it seems that if I were to have other Slicers elsewhere in the workbook, those would also get reset, not just these 4. How could I target just these 4?

 

[nitin_bidi]

Dim slcr As SlicerCache

    For Each slcr In ActiveWorkbook.SlicerCaches
    
        slcr.ClearManualFilter
    Next slcr

Hi .. Is it possible to amend the code so that it clears all the filters from Slicer but keeps the Blanks away?

 

[Roderick_E]

I know this post is old but I just had this situation and applied this solution:

'***Clear all slicers on activesheet except named***
Sub clearslcr()
Dim slcr As SlicerCache
Dim sl As Slicer


    For Each slcr In ActiveWorkbook.SlicerCaches
    For Each sl In slcr.Slicers
    If sl.Parent.Name = ActiveSheet.Name Then
    
If InStr(sl.Name, "FILTER DATE") = False Then


        slcr.ClearManualFilter
End If
End If
Next sl
    Next slcr
End Sub

 

[nitin_bidi]

Thank you Roderick

 

[falcios]

Unimord, I know this post is very old but I will still pass along how to clear slicer filters, which I found on my own by accident.
Select all slicers using CTRL+Click
Select Data Tab, sort and filter section
Select clear

You won't need VBA code.

Hope this helps.