Excel filter for pivot table

Filter for pivot table

For Each Pi In _
ActiveSheet.PivotTables(1).PivotFields(Selection.Value).PivotItems
Pi.Visible = True
Next Pi

For Each Pi In _
ActiveSheet.PivotTables(1).PivotFields(Selection.Value).PivotItems
Select Case Pi
Case "1001012", "1002113"
Pi.Visible = True
Case Else
Pi.Visible = False
End Select
Next Pi