Select Multiple Pivot Field Items in VBA

Depending on the name of your pivot table, this code should work for what you're looking for.

    For Each PT In ActiveWorkbook.ActiveSheet.PivotTables
        Select Case PT.Name
        Case "PivotTable1"
            For Each PF In PT.PivotFields
                Select Case PF.Name
                Case "Content Type"
                    For Each PI In PF.PivotItems
                        Select Case PI.Name
                        Case _
                        "PSSR", _
                        "CAM", _
                        "ISR", _
                            PI.Visible = True
                        Case Else
                            PI.Visible = False
                        End Select
                    Next
                End Select
            Next
        End Select
    Next