Hi Experts.
I would like to write a VBA code for a slicer connected to my pivot table that should select e.g 3 out of 10 items from the slicer List.
from Macros I see the auto recorded code as
Sub Yearly()
With ActiveWorkbook.SlicerCaches("Slicer_Years")
        .SlicerItems("1920").Selected = False
        .SlicerItems("1933").Selected = False
        .SlicerItems("1936").Selected = False
        .SlicerItems("1937").Selected = True
        .SlicerItems("1939").Selected = True
        .SlicerItems("1940").Selected = True
        .SlicerItems("1941").Selected = True
        .SlicerItems("1942").Selected = True
        .SlicerItems("1947").Selected = True
        .SlicerItems("1948").Selected = True
        .SlicerItems("1949").Selected = True
        .SlicerItems("1950").Selected = True
End With
End Sub
That works fine for a single run but since I have to do it more often, e.g I have to do this for let say a loop of 3 time
Loop1: 1920-1930 (not exact range i mean items of this range)= True others false,
Loop2: 1930-1940 =True others false and
Loop3: 1940-1950 = True others are false)

any good suggestion for how to do that with VB coding.

Best Regards
Ali