Работа со сводной диаграммой средством VBA

[Тиль]

Доброго времени суток всем.
Начальнику не ймется, хочу говорит чтоб было так.
Вот таблица.
В листе "Данные" находистя исходная таблица.
В листе Диаграмма - собственно сводная диаграмма и таблица

Скажите пожалуйста, как сделать так, что бы макрос читал кол-во данных в таблице сводной ( вданном случае диапозон B3-B6, диапозон может увеличиваться) и при двойном клике на колонку в диаграмме, выдавал данные как при клике двойном на значение в таблице.(Лист5)

Не знаю понятно ли написал. В общем кликаю я на столбец в диаграмме "Вик", а запускается двойной клик на ячейку "B3" и открывается нвоый лист с данными всеми из основнйо таблицы.

Голова вскипела, пытался что то сделать, и близко не подошел. Не знаю как запустить макрос при выборе столбца в диаграмме и запуска вывода данных.

[Template]

Не знаю как запустить макрос при выборе столбца в диаграмме

Код: Выделить всё

Private Sub Chart_BeforeDoubleClick(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long, Cancel As Boolean)

End Sub

токмо директора нужно предупредить о двойном клике, а ежели будет брыкаться, то посмотреть в сторону события Chart_Select

и запуска вывода данных

Код: Выделить всё

Range("Address").ShowDetail = True