Como insertar fotos en un formulario en excel ?

¿Quisiera saber como insertar fotos mediante macros en un formulario de excel?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On eror GoTo salida
If Target.Column = 9 Then
foto = Target.Value
ActiveSheet.FOTOS1.Image.Picture = LoadPicture("C:\Users\FRANCISCO\Documents\COTIZADOR BARLOVENTO\" & foto & ".jpg")
End If
Exit Sub
salida:
msgbox "ha ocurrido un error, revise el nombre del tipo de apartamento", vbCritical
End Sub