Как заложить цикл?

[denis402]

Добрый день,
есть список сотрудников (Петя,Денис,Вася,Коля...) с их результатами работы изображенными на графиках, и написанный макрос заменяющий  на графике имя первого сотрудника на имя второго сотрудника (далее макрос сохраняет результат в PDF).
Друзья, подскажите как включить цикл в макрос, который автоматически меняет текущее имя сотрудника на последующее(с Пети на Денис,с Дениса на Васю, с Васи на Колю и т.п) во всех местах где оно присутствует(на графиках и в имени сохраняемого файла) ?
Можно понасоздавать макросов ,запускающихся последовательно, но это уж очень долго...

Ниже фрагмент с описанием,

Код Выделить Развернуть

[u]'Меняем одного сотрудника на другого[/u]

  ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveSheet.PivotTables("PivotTable6").PivotFields("CLIENT NAME SHORT"). _
        CurrentPage = "(All)"
    With ActiveSheet.PivotTables("PivotTable6").PivotFields("CLIENT NAME SHORT")
        .PivotItems("Денис").Visible = True
        .PivotItems("Петя").Visible = False
    End With
    Sheets("Заработал в апреле").Select
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveSheet.PivotTables("PivotTable6").PivotFields("CLIENT NAME SHORT"). _
        CurrentPage = "(All)"
    With ActiveSheet.PivotTables("PivotTable6").PivotFields("CLIENT NAME SHORT")
        .PivotItems("Денис").Visible = True
        .PivotItems("Петя").Visible = False
'Распечатываем результат
Range("A1:N352").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "Н:\Денис.pdf", _
        Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:= _
        False, OpenAfterPublish:=True


[RAN]

Исходя из приложенного фрагмента кода

макрос, который автоматически меняет текущее имя сотрудника на последующее

и рядом не лежал.
макрос для выбора значения фильтра сводной таблицы - вопрос совершенно иной.