Meerdere sliceritems selecteren met VBA

[Samsung6713]

Goedemorgen,

Ik heb een goed werkende code voor het selecteren van 1 sliceritem.
Nu wil ik met de code meerdere sliceritems selecteren.
Volgens mij moet de oplossing super simpel zijn, maar ik kom er niet uit.
De code is nu

Sub selectie_klant()

    Application.ScreenUpdating = False
    Application.Calculation = xlManual

' selectie_klant

    For Each slcCache In ActiveWorkbook.SlicerCaches
        slcCache.ClearManualFilter
Next



    With ActiveWorkbook.SlicerCaches("Slicer_Uitvoerder")
    For Each piv In .PivotTables
         piv.ManualUpdate = True
    Next
    
    For Each oSlicerItem In .SlicerItems
        If oSlicerItem.Name = "Uitvoerder Piet" Then
            oSlicerItem.Selected = True
            
        Else
            oSlicerItem.Selected = False
        
        End If
    Next oSlicerItem
    
      For Each piv In .PivotTables
         piv.ManualUpdate = False
    Next
    
    End With
    
        
    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True
    


 
End Sub

Ik heb dus nu Uitvoerder Piet geselecteerd in de slicer, maar wil ook Uitvoerder Jan, Klaas en Henk selecteren.

 

[VenA]

zie hier https://www.helpmij.nl/forum/showthread.php/952581-Slicerselectie-met-vba-zeer-traag?p=6225253&viewfull=1#post6225253

 

[Samsung6713]

De oplossing inmiddels gevonden

ElseIf

Ik wist dat ik iets heel simpels over het hoofd zag.

Bedankt voor het meedenken

 

[HSV]

Zal het met een 'Select Case oSlicerItem' niet handiger zijn?