¿Cómo insertar una imagen eligiendo desde una validación de datos?

Hola ,

copio código que lo ubique en un blog :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo salida
If Target.Column = 1 Then
foto = Target.Value
ActiveSheet.Image1.picture = loadpicture("C:\Users\CRISTIAN\Desktop\Control de Ingresos y Salidas\" & foto & ".jpg ")
End If
Exit Sub
salida:
End Sub

al principio salia pero las imágenes cargaban muy lento , he tratado de abrirlo de nuevo y me sale el error de compilación : no se a definido variable en " Foto " .

Agradecería su apoyo para los casos de lentitud de imágenes y el problema de la variable el video o ejemplo lo saque del siguiente linck :http://www.youtube.com/watch?v=qdwdoGjZoMc

Saludos,