¿Cómo hago macro para catalogo de imágenes en un cuadro flotante y ajuste tamaño automáticamente?

Con: =INCRUSTAR("Forms.Image.1";"") y la siguiente macro

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A3:A200")) Is Nothing Then
Image1.Picture = _
LoadPicture(ActiveWorkbook.Path & "\imágenes\" & Target & ".jpg")
End If
End Sub

Logro un buen catalogo de imágenes pero necesito:

que las imágenes se ajusten a un ancho y largo de 150x150 pixeles y que el cuadro con la imagen este flotante para poder verlo aunque seleccione la celda A2000.

Gracias!