запуск макроса при обновлении сводной таблицы

[KApSuL]

Помогите пожалуйста, вычитал что можно запускать макрос при обновлении сводных таблиц при помощи Worksheet_PivotTableChangeSync
Но почему-то не работает

Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
Call Cover
End Sub

Sub Cover()

    Dim foundry, foundryend, i, j
    i = 1
    j = 1
    
    Sheets("Корінні причини простоїв").Select
    Set foundry = [A:A].Find("Общий итог", LookIn:=xlValues).EntireRow
    foundry.Cells(i, j + 1).Select
    Set foundryend = [A:A].Find("Ливарня підсумок", LookIn:=xlValues).EntireRow
    foundryend.Cells(i - 1, j).Select
    
    Range(foundry.Cells(i, j + 1), foundryend.Cells(i - 1, j)).Select

    Selection.EntireRow.Hidden = True
End Sub

[IgorGO]

а перенесите этот код из Модуль1 в модуль листа, содержащего сводную, для которой Вы хотите перехватить событие "обновление сводной"

[KApSuL]

Сообщение от IgorGO

а перенесите этот код из Модуль1 в модуль листа, содержащего сводную, для которой Вы хотите перехватить событие "обновление сводной"

Спасибо большое, помогло =)