Добавление строки в таблицу при помощи макроса и гиперссылки

[GrAnat]

Добрый день.
Подскажите пожалуйста, может кто то сталкивался с решением такой задачи.
Как назначить макрос добавления строки для гиперссылки?
Например, есть таблица, и в нее нужно добавлять новые строки.
макрос добавления строки - это просто,
однако как сделать так, чтобы в последней строке таблицы была гиперссылка "добавить строку", при клике на которую добавлялась бы строка выше (запускался макрос)?!
Как связать макрос и гиперссылку?
Я такое видел, но как сделано понять сам не смог.
Помогите, пожалуйста.

[kuklp]

Здравствуйте.
Используйте событие листа Worksheet_FollowHyperlink или книги Workbook_SheetFollowHyperlink. Только зачем такой изврат? Лучше Worksheet_BeforeDoubleClick.

[GrAnat]

Спасибо за подсказку,
но теперь у меня при любом двойном клике добавляется строка
а как этого избежать? как сделать, чтобы строка добавлялась только при клике в таблице?

[GrAnat]

С гиперссылкой работает, она в одном месте и соответственно добавление тоже в одном месте.
Спасибо за подсказку!!!

[kuklp]

Использовать метод Intersect. А еще лучше, прочесть правила форума и выложить пример. Иначе тема растянется.

[GrAnat]

Вот сделал с гиперрсылкой, однако результат неудовлетворительный...
Гиперрсылка добавляет строку допустим в первой таблице, а в другой таблице, гиперрсылка добавляет строку опять таки в первую таблицу.... или же надо в каждой таблице делать гиперссылку на ячейки с разными именами, что не очень удобно если таблиц много...
Как сделать проще?

[_Boroda_]

а так?

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

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Target.Range.EntireRow.Insert
Target.Range.Select
End Sub

[kuklp]

Или так(удалить гиперссылки):

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

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
        If .Value = "Добавить строку" Then
            .EntireRow.Insert
            .Select
            Cancel = -1
        End If
    End With
End Sub

[GrAnat]

Ого, все работает !!!
Спасибо большое !!!!