Зацикливание элементов в Pivot Slicer с помощью макроса

Question

Я пытаюсь перебрать все элементы в слайсере Pivot.
Примерно так:

Sub TEST()
Dim ArrRegions: Set ArrRegions = ActiveWorkbook.SlicerCaches("Slicer_TEST")
Dim S1, S2 Dim i As Long 

For Each S1 In ArrRegions.SlicerItems
S1.Selected = True 
    For Each S2 In ArrRegions.SlicerItems
        If S2.Selected = True And S1.Name <> S2.Name Then S2.Selected = False
    Next
    Call Some macro
Next
End Sub

Этот код выбирает следующий элемент, когда выбран текущий элемент (выбраны 2 элемента)затем отменяет выбор текущего элемента.

Можно ли выбрать одновременно только 1 элемент? Я отключил опцию множественного выбора на самом слайсере, но код по-прежнему выбирает 2.

В основном код должен выбирать 1 за один раз, как это делается вручную.

Спасибо за помощь