Имена подитогов сводной таблицы... - VB

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

Всем привет)
Вопрос простой, мне кажется, но поставил в тупик...
Нужно изменить текст в итогах и всех подитогах сводной таблицы! С итогами проблем нет - GrandTotalName дял PivotFields легко с этим справляется, но вот SubtotalName присваивает одинаковые имена всем подитогам( как легким движением сделать аналогично значениям по умолчанию???....
пример
-----
март 2008 итог
-----
апрель 2008 итог
-----
общий итог
получить:
----
март 2008 итог за период
-----
апрель 2008 итог за период
-----
Итоги по всем периодам 'с этим полем проблем нет)

Решение задачи: «Имена подитогов сводной таблицы...»

textual
                            Листинг программы 
                        
                            SubtotalName = <font color="teal">"? Итог за период"</font>