Андрей Лящук,Спасибо большое, ваш вариант работает. Супер. Заточил под себя. Но. в модуль эта книга
Код
Private Sub Workbook_Open()
With ThisWorkbook.Worksheets("Лист1") ' Востановить ссылки при загрузке
.Hyperlinks.Add Anchor:=Range("B1"), Address:="", SubAddress:="Лист1!B1", TextToDisplay:="Сформировать"
.Hyperlinks.Add Anchor:=Range("D1"), Address:="", SubAddress:="Лист1!D1", TextToDisplay:="Загрузить"
.Hyperlinks.Add Anchor:=Range("E1"), Address:="", SubAddress:="Лист1!E1", TextToDisplay:="Загрузить"
End With End Sub
модуль лист1
Код
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Application.Run "main." & Replace(Target.SubAddress, "!", "")
End Sub
модуль main
Код
Public Function Лист1B1()
'.............. код
End Function
Public Function Лист1D1()
'.............. код
End Function
Но. Как избавится от ошибки когда нет функции. (Чтобы сработало в холостую, без ошибки)
Юрий М,Извините Юрий, это снова я. Получил ваше первое письмо. bob1010, код следует оформлять соответствующим тем: ищите кнопку <...> и исправьте своё сообщение. Но скрин мне был более понятен (это я о годах) и я бы сразу исправился. Мне очень нравится ваш сайт, на нем учусь. Я первый раз пишу в форуме. С уважением Владимир.