Code to clear all slicers except one

[Uzma Shaheen]

Hi All

I have this code that clears all slicer filters on my sheet

How can i clear all the slicer filters except for the slicer called type?

Sub SlicerReset()


Dim slcr As SlicerCache
Dim slc As Slicer


Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual


 For Each slcr In ActiveWorkbook.SlicerCaches
   For Each slc In slcr.Slicers
      If slc.Shape.Parent Is ActiveSheet Then
         If slcr.FilterCleared = False Then
            slcr.ClearManualFilter
            DoEvents
            Exit For
         End If
      End If
   Next slc
 Next slcr


Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic


ActiveWorkbook.RefreshAll


End Sub

 

[Johnny C]

Re: VBA slight amendment needed to this code please

replace

If slc.Shape.Parent Is ActiveSheet then

with

If slc.Shape.Parent Is ActiveSheet And slc.Name <> "type" Then