Исключить значение из фильтра сводной таблицы на базе OLAP (vba)

есть сводная таблица, на основе OLAP куба

в области фильтров сводной, помещено поле Status. Необходимо при помощи макроса из фильтра Status исключить значение : "Shipped"

При этом количество элементов в фильтре может добавляться, но исключать нужно всегда элемент "Shipped", все остальные оставлять

Нашел способ как оставить только один элемент в фильтре, а вот чтобы наоборот исключить этот самый элемент, не получается и выражение <> (не равно не применяется к этой конструкции)

ActiveSheet.PivotTables("PivotTable1").PivotFields("[Supply plan].[Status].[Status]").VisibleItemsList = Array("[Supply plan].[Status].&[Shipped]")