Не работает автообновление графика-гистограммы при изменении сводной таблицы

Есть одна сводная таблица с графиком. Не буду врать, нашел макрос на автоматич обновление графика (любого найденного графика) при изменении сводной таблицы. Макрос я повесил как модуль на первый лист. Но почему-то не работает, пока не нажмешь кнопку запустить. Чувствую я, что подвох в банальном неправильном применении макроса. Подскажите, что я сделал не так?

Sub ChartUpdate()
Dim mSheet As Worksheet, mPivot As PivotTable
For Each mSheet In ActiveWorkbook.Worksheets
    For Each mPivot In mSheet.PivotTables
        mPivot.RefreshTable
        mPivot.Update
    Next
Next
MsgBox "File has been refreshed, Charts have been updated"
End Sub