使用宏在Pivot Slicer中循环项目

Question

我正在尝试遍历数据透视切片器中的每个项目。
像这样：

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个项目）时选择下一个项目，然后取消选择当前项目。

是否可以一次只选择一项？我在切片器上禁用了多选选项，但是代码仍然选择2。

基本上，代码应该一次选择1，就像手动进行选择一样。

感谢您的帮助