Применение сортировки в сводной таблице

[sergo44441]

Добрый день. Уважаемые знатоки. У меня такая проблема. У меня есть файл эксель 2007, в котором много сводных таблиц (источник в аксессе для уменьшения объема). Каждую неделю добавляются новые данные. Сортировка недель (они у меня расположены в столбцах сводных) недавно нарушилась, 45 неделя расположилась раньше 44. Как бы для каждой сводной таблицы для столбцов применить с помощью макроса вба команду "сортировка по возрастанию"? Вручную это делать долговато будет.

[sergo44441]

Получилось сделать самому через такой макрос:
For Each iz In Worksheets
    For Each sv In iz.PivotTables
    sv.ColumnRange.Sort
    Next
Next