ник: Aris
Кажется разобралась...но мне все равно кажется что что-то напутала
Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click
Задание.SetFocus
RunCommand acCmdInsertHyperlink
Кнопка1.SetFocus
Exit_Кнопка1_Click:
Exit Sub
Err_Кнопка1_Click:
Resume Exit_Кнопка1_Click
End Sub