Здравствуйте.

Если в коде VBA-Excel задавать фильтр по дивизиону через переменную, вот так:

Sub Div()
Dim DD As Byte 'Код дивизиона
DD = 11
ActiveSheet.PivotTables("Sale").PivotFields("[Clients].[Division].[Division]"). _
VisibleItemsList = Array("[Clients].[Division].&[DD]")
End Sub

то ошибка: Не удается найти элемент в кубе OLAP.

Если вместо переменной вписать цифру (в данном случае 11 вместо DD), то код выполняется.

Как использовать переменную?

Ferdipux, спасибо, что-то меня заклинило...