Игнорировать недоступные элементы слайсера в VBA

Question

У меня проблемы с созданием кода для выбора элементов слайсера в моей таблице Excel. Существует соединение / запрос с таблицей, и данные обновляются каждый час (некоторые параметры / строки могут исчезнуть).

Например:

Теперь элемент среза "10" доступен, и код выполняется без проблем, но эта строка может go исчезнуть, когда я обновлю данные с сервера и макрос выдает ошибку "

run-time error 5 

invalid procedure call or argument

Это код, который я использую:

Sub TechData()
'
' TechData Macro
'

'
    With ActiveWorkbook.SlicerCaches("Slicer_Status2")
        .SlicerItems("10").Selected = True
        .SlicerItems("20").Selected = False
        .SlicerItems("30").Selected = True
        .SlicerItems("40").Selected = False
        .SlicerItems("50").Selected = False
        .SlicerItems("90").Selected = False
    End With
End Sub

Я собираюсь создать код, который игнорирует, когда опция недоступна, и изменить только те, которые доступны.

Я начинаю изучать vba, и теперь это немного сложно для меня.