Excel
3
Вклад в тег

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