VBA и сводная таблица - почему не работает?

[kievlyanin]

есть сводная таблица утвержденной формы из которой мне надо в другой файл вытянуть данные.

для того, чтобы это сделать надо отформатировать сводную определенным образом и поскольку опрация будет проводится часто, то решил сделать макрос.

делал по простому - через запись макроса вот что получилось:

Sub Макрос1()

ActiveSheet.PivotTables("Сводная таблица1").PivotFields("вес_т").Orientation = _
        xlHidden 

End Sub

а не работает! ... самое интересное что точно такой же код по другим полям работает, например вот это:

    ActiveSheet.PivotTables("Сводная таблица1").PivotFields("фио_countr"). _
        Orientation = xlHidden

может его можно заменить на какой-то другой?

[kievlyanin]

нашел в чем проблема - как сделать чтобы это:

ActiveSheet.PivotTables("Сводная таблица1").PivotFields("вес_т").Orientation = _
        xlHidden

выполнялось для всех полей которые содержат в названии "вес" ??