Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If Left(.Value, 7) = "http://" Or Left(.Value, 8) = "https://" Then
ActiveSheet.Shapes.AddPicture(.Value, msoTrue, msoFalse, .Left, .Top, .Width, .Height).Placement = xlMoveAndSize
.WrapText = True
End If
End With
End Sub
With Target
If Left(.Value, 7) = "http://" Or Left(.Value, 8) = "https://" Then
ActiveSheet.Shapes.AddPicture(.Value, msoTrue, msoFalse, .Left, .Top, .Width, .Height).Placement = xlMoveAndSize
.WrapText = True
End If
End With
End Sub
