Фильтр в сводной таблице - VB

Формулировка задачи:

Здравствуйте!
Макрос строит сводную таблицу. Поле "Статус" ставит в фильтр и устанавливает значение "План выполнен". Бывают случаи, когда в исходных данных отсутствует значение "План выполнен". И макрос выполняется с ошибкой. Как можно сделать так, если отсутствует значение, то макрос прекращает строить сводную таблицу, и продолжает работать дальше (строит другие таблицы)?

Решение задачи: «Фильтр в сводной таблице»

textual
                            Листинг программы 
                        

                            ...
With ActiveSheet.PivotTables("СводнаяТаблица").PivotFields("Статус")
     For Each PItem In .PivotItems
        PItem.Visible = False
        If PItem.Name = "Выполнен план" Then PItem.Visible = True
     Next
End With  
...

                        