How to select multiple items in Excel PIVOT with vba code

amol bhosale Try something along these lines...

Sub SelectMultipleItems()
    Dim Item As PivotItem
    With ActiveSheet.PivotTables("PivotTable3").PivotFields("Store")
        .ClearAllFilters
        For Each Item In .PivotItems
            Select Case Item.Name
                Case "S846", "SG07"
                    Item.Visible = True
                Case Else
                    Item.Visible = False
            End Select
        Next Item
        .EnableMultiplePageItems = True
    End With
End Sub