![excel](https://habrastorage.org/r/w120/webt/67/53/16/6753169c7683b390252752.jpeg)
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