Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
On Error Resume Next 
Dim cell As Range: Set cell = Target.EntireRow.Cells(2) '(2) - номер столбца с гиперссылкой 
If cell.Hyperlinks.Count > 0 Then ' строка с гиперссылкой 
PicPath = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, cell.Hyperlinks(1).Address) 
If Dir(PicPath) <> "" Then ' картинка найдена 
With F 
.Picture = LoadPicture(PicPath) 
.Width = F.Picture.Width / 33: .Height = F.Picture.Height / 33 
.Top = Application.Top + 24 
.Left = Application.Width + Application.Left - .Width - 18 
.Caption = cell.Previous: .Show 
End With 
End If 
Else ' пустая строка 
Unload F 
End If 
End Sub