Vba clear slicer on active worksheet only

[gazmoz17]

Hi,

I have this working code to clear slicers for entire workbook but unfortunately struggling to adapt it to work for current worksheet.

Sub Clearslicerworkbook()
Dim slcr As SlicerCache

' Clear slicer filters
For Each slcr In ActiveWorkbook.SlicerCaches
slcr.ClearManualFilter
Next slcr

' Simulate Ctrl + Home keypress
Application.SendKeys "^{HOME}"
End Sub

Many Thanks

 

[Domenic]

Try the following...

Sub ClearSlicerActiveSheet()

    Dim slcr As SlicerCache
    Dim slc As Slicer
    
    For Each slcr In ActiveWorkbook.SlicerCaches
        For Each slc In slcr.Slicers
            If slc.Shape.Parent Is ActiveSheet Then
                slc.SlicerCache.ClearManualFilter
            End If
        Next slc
    Next slcr
    
End Sub

Hope this helps!

 

[gazmoz17]

Hi Domenic,

Superb thanks for that much appreciated

 

[Domenic]

You're very welcome, cheers!