Děkuji všem za ochotu.
Kód: Vybrat vše
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strPathJpg As String
strPathJpg = "\" 'musi končit lomitkem
If Not Application.Intersect(Range("A:A"), Target) Is Nothing Then
Application.EnableEvents = False
On Error Resume Next
If Target <> "" Then 'prida HT
Target.Hyperlinks.Add _
Anchor:=Target, _
Address:=strPathJpg & Target.Value & ".jpg"
Else
Target.Hyperlinks.Delete 'smaze HT
End If
On Error GoTo 0
Application.EnableEvents = True
End If
End Sub