清除特定切片器中的过滤器？

Question

当单元格包含某个值时，我必须清除Excel中特定切片器的筛选器。 例如：

If Sheet5.Range("BL1").Value = "by Equity Decision Group" Then

在这里我应该说要清除切片器。有2个，我只想清除1。

我已经尝试过清除所有切片器的代码，但我不知道如何将其修改为仅清除一个特定的切片器： 子ClearMySlicers（）
Dim Slcr作为SlicerCache
对于ActiveWorkbook.SlicerCaches中的每个Slcr
Slcr.ClearManualFilter
下一个
结束