
Excel
3
Вклад в тег
Private Sub Workbook_Open()
' запускать макрос при нажатии Ctrl + Enter
Application.OnKey "^~", "FollowHypelink"
End Sub
Sub FollowHypelink()
On Error Resume Next: ActiveCell.Hyperlinks(1).Follow
End Sub