Сообщество IT-специалистов
Ответы на любые вопросы об IT
Профессиональное развитие в IT
Удаленная работа для IT-специалистов
Private Sub Workbook_Open() ' запускать макрос при нажатии Ctrl + Enter Application.OnKey "^~", "FollowHypelink" End Sub
Sub FollowHypelink() On Error Resume Next: ActiveCell.Hyperlinks(1).Follow End Sub