Как отфильтровать сводную таблицу, если все критерии могут не существовать?

With ActiveSheet.PivotTables("Сводная1").PivotFields("Отклонения")
.PivotItems("2").Visible = False
.PivotItems("").Visible = False
.PivotItems("#N/A").Visible = False
End With

''' аналог dictionary.exists(key)
Function isInCollection(key As String, col As Variant)
    Dim tmp As Variant
    
    isInCollection = False
    If Not (TypeName(col) = "Collection" Or _
            TypeName(col) = "Sheets" Or _
            TypeName(col) = "CollectionExtended" Or _
            TypeName(col) = "Workbooks" Or _
            TypeName(col) = "ListObjects" Or _
            TypeName(col) = "PivotTables" Or _
            TypeName(col) = "PivotItems") Then Exit Function
    
    tmp = "abrakadabra"
    On Error Resume Next
        If TypeName(col) = "CollectionExtended" Then
            tmp = col.GetCollection(key)
            Stop
        Else
            If IsObject(col(key)) Then
                Set tmp = col.Item(key)
            Else
                tmp = col.Item(key)
            End If
        End If
    On Error GoTo 0
    
    If IsArray(tmp) Or IsObject(tmp) Then
        isInCollection = True
    Else
        isInCollection = (tmp <> "abrakadabra")
    End If
End Function
 
' собственно - проверка вхождения
Sub prb()
    Dim ptTable As PivotTable
    
' проверка наличия кода среди PivotItems
    Set ptTable = ActiveSheet.PivotTables("PivotTable1")
    chk = isInCollection("159", ptTable.PivotFields("NUM").PivotItems)
End Sub

    Dim ptTable As PivotTable
    Dim ptField As PivotField
    
    Set ptTable = ActiveSheet.PivotTables("PivotTable1")
    Set ptField = ptTable.PivotFields("NUM")
 
    chk = ptField.AllItemsVisible ' проверяет, все ли галки включены
    ptField.ClearAllFilters       ' сбрасываем все фильтры (ставит все галки)
    chk = isInCollection("159", ptTable.PivotFields("NUM").PivotItems) ' проверяем наличие конкретного пункта
    chk = ptField.PivotItems("159").Visible ' проверяем состояние конкретного пункта