clear slicer filter by clicking sliceritem

[wesleyvanv]

Hi

I hope someone can help me out with VBA for slicers.
I have two slicers ("A" and "B") and I want both slicers to work when clicking on each of them.
So when I click on a sliceritem (or multiple) in slicer "A" I want to clear the fitler on slicer "B", also working the other way around.

I started with below simple macro, but can this be extended to get above worked?

Thanks
Wes


Sub Macro1()
'
' Macro1 Macro
'


'
With ActiveWorkbook.SlicerCaches("Slicer_A")
.SlicerItems("1").Selected = True
.SlicerItems("0").Selected = False
End With
ActiveWorkbook.SlicerCaches("Slicer_B").ClearManualFilter

With ActiveWorkbook.SlicerCaches("Slicer_B")
.SlicerItems("1").Selected = True
.SlicerItems("0").Selected = False
ActiveWorkbook.SlicerCaches("Slicer_A").ClearManualFilter
End Sub