a_axe, спасибо это работает! А можете подсказать как мне вообще отказаться от функции CreateHypelinkInTextCell и перенести ее функционал в:
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A666")) Is Nothing Then
If Target <> "" Then
Call CreateHypelinkInTextCell
End If
End If