Create Macro using PivotItems in Pivot Tables

I'm trying to create a macro that will filter a pivot table based a list I've created. Below is the coding I've developed so far. Not all the individual items will be visible every time I run the macro.

Is there a process that will loop through the PivotFields("Team") and only set the PivotItems.Visible = True for the items listed below which are in the current pivot table data? Right now the macro stops if the item is not in the source data.

ActiveWorkbook.RefreshAll
    ActiveSheet.PivotTables("Occupancy").PivotFields("Team").CurrentPage = "(All)"
    With ActiveSheet.PivotTables("Occupancy").PivotFields("Team")
        .PivotItems("ND SUP - Gaurav malhotra").Visible = True
        .PivotItems("ND SUP - Harpreet khera").Visible = True
        .PivotItems("ND SUP - Jagat Bhansali").Visible = True
        .PivotItems("ND SUP - Jaspal Deol").Visible = True
        .PivotItems("ND SUP - Meghna Das").Visible = True
        .PivotItems("ND SUP - Mukul Manav").Visible = True
        .PivotItems("ND SUP - Nimisha Gupta").Visible = True
        .PivotItems("ND SUP - Pankaj Sariyal").Visible = True
        .PivotItems("ND SUP - Puneet Kumar").Visible = True
        .PivotItems("ND SUP - Raghwendra K").Visible = True
        .PivotItems("ND SUP - Ratan Singh").Visible = True
        .PivotItems("ND SUP - Sumit Sehgal").Visible = True
        .PivotItems("ND SUP - Tonmoy Gorai").Visible = True
        .PivotItems("ND SUP - Vineet Rawat").Visible = True
        .PivotItems("ND SUP - Vineet Singh ").Visible = True
        .PivotItems("Nuv SUP - Arvin Matundan").Visible = True
        .PivotItems("Nuv SUP - Charmane Gonzaga ").Visible = True
        .PivotItems("Nuv SUP - Christian Nacionales").Visible = True
        .PivotItems("Nuv SUP - Cristy Anne Crisostomo").Visible = True
        .PivotItems("Nuv SUP - Dandy Galfo").Visible = True
        .PivotItems("Nuv SUP - Donde Basilio ").Visible = True
        .PivotItems("Nuv SUP - Donna Bustamante").Visible = True
        .PivotItems("Nuv SUP - Elbert Batiles ").Visible = True
        .PivotItems("Nuv SUP - Grace Torres").Visible = True
        .PivotItems("Nuv SUP - Henry Pascual").Visible = True
        .PivotItems("Nuv SUP - James Prior").Visible = True
        .PivotItems("Nuv SUP - Jeffrey Ebalobo").Visible = True
        .PivotItems("Nuv SUP - Jeffrey Gruta").Visible = True
        .PivotItems("Nuv SUP - Jelle DelRosario").Visible = True
        .PivotItems("Nuv SUP - John De Torres").Visible = True
        .PivotItems("Nuv SUP - John Sagasayan").Visible = True
        .PivotItems("Nuv SUP - Jover Evale ").Visible = True
        .PivotItems("Nuv SUP - Joyce Ravida").Visible = True
        .PivotItems("Nuv SUP - Kim Matibag").Visible = True
        .PivotItems("Nuv Sup - Ma. Kristina Villanueva").Visible = True
        .PivotItems("Nuv SUP - Ma.Christina Raza").Visible = True
        .PivotItems("Nuv SUP - Mannelyn Mangubat").Visible = True
        .PivotItems("Nuv SUP - MarkRyan Deguzman").Visible = True
        .PivotItems("Nuv SUP - Michelle Evangelista ").Visible = True
        .PivotItems("Nuv SUP - Renan Alvarez").Visible = True
        .PivotItems("Nuv SUP - Sheila Cabrera").Visible = True
        .PivotItems("Nuv SUP - Trizha Catingig").Visible = True
    End With
End Sub