Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    On Error Resume Next
    Dim cell As Range: Set cell = Target.EntireRow.Cells( 2 )
    If cell.Hyperlinks.Count >  0  Then    ' строка с гиперссылкой
        PicPath = cell.Hyperlinks( 1 ).Address
        
        If Dir(PicPath) <> "" Then    ' картинка найдена
            
            With F
            
                .Picture = LoadPicture(ByVal cell.Hyperlinks( 1 ).Address)
                .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