Insertar imagen desde archivo en excel 2010

Buenas tardes.

Necesito ayuda para resolver el problema que tengo con la siguiente macro:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Final
If Target.Address = "$G$42" Then
Foto = Target.Value
ActiveSheet.Image1.Picture = LoadPicture("F:\PRUEBA\FOTOS\" & Foto & ".jpg")
End If
If Target.Address = "$G$59" Then
Foto = Target.Value
ActiveSheet.Image2.Picture = LoadPicture("F:\PRUEBA\PLANOS\" & Foto & ".jpg")
End If
Exit Sub
Final:
MsgBox "click solo celda de número", vbCritical
End Sub

se trata de insertar unas fotos desde un archivo en control actives image, según el valor de la celda g42 o g59, estas celdas obtienen el dato de:

=BUSCARV($C$3;'4.1 Soares'!$1:$1048576;5;FALSO)

todo, va bien, excepto que no presenta la imagen en el control al obtener el dato automáticamente, sin embargo si pongo el mismo dato de manera manual, si lo hace.

¿a que se puede deber?

Muchas gracias

Añade tu respuesta

Haz clic para o