jen takový pokus
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Value <> "" And Cells(Target.Row, 1) <> "" Then ThisWorkbook.FollowHyperlink Cells(Target.Row, 1)
End If
End Subcitovat
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Value <> "" And Cells(Target.Row, 1) <> "" Then ThisWorkbook.FollowHyperlink Cells(Target.Row, 1)
End If
End Subcitovat