dynamic tables with VBA jump error and follow

I have a dynamic table where there is a selection filter and I want to choose only certain ones, I know how to choose them but when there is not one, I get an error and it stops. Is it possible to make a Loop that travels all and selects only those that you find? With this code, I remove from 1 to 15, but if you do not find one of them, it stops and does not follow.

Thanks and best regards

Sub tablaDinamica_Tiempos()

ActiveSheet.PivotTables("tabla_7").PivotFields("Duration"). _
                ClearAllFilters

        ActiveSheet.PivotTables("tabla_7").PivotFields("Duration"). _
            CurrentPage = "(ALL)"

        With ActiveSheet.PivotTables("tabla_7").PivotFields("Duration")

           .PivotItems("0").Visible = False
           .PivotItems("1").Visible = False
           .PivotItems("2").Visible = False
           .PivotItems("3").Visible = False
           .PivotItems("4").Visible = False
           .PivotItems("5").Visible = False
           .PivotItems("6").Visible = False
           .PivotItems("7").Visible = False
           .PivotItems("8").Visible = False
           .PivotItems("9").Visible = False
           .PivotItems("10").Visible = False
           .PivotItems("11").Visible = False
           .PivotItems("12").Visible = False
           .PivotItems("13").Visible = False
           .PivotItems("14").Visible = False
           .PivotItems("15").Visible = False


     End With

End Sub