Poner fotos en excel, codigo salta error

KL me ayudo con esta macro pero me sale un error :

Sub test()
Dim Imagen As Shape, Ruta As String
Dim Izquierda As Single, Arriba As Single, Escala As Single

'La ruta y el nombre del archivo con la imagen
Application.Dialogs(xlDialogInsertPicture).Show
'los puntos desde el extremo izquierdo de la hoja
Izquierda = Columns("A:C").Width
'los puntos desde el extremo superior de la hoja
Arriba = Rows("1:5").Height
Escala = 0.5 'o sea 50% del tamaño original.

Set Imagen = ActiveSheet.Shapes.AddPicture _
(Ruta, True, True, Izquierda, Arriba, 1, 1)
With Imagen
.ScaleHeight Escala, msoCTrue, msoScaleFromTopLeft
.ScaleWidth Escala, msoCTrue, msoScaleFromTopLeft
End With
End Sub

Este es el codigo cuando uno quiere inserta la imagen se abre la ventana
para buscar dicha imagen q uno desee pero al dar click en insertar imagen
sale el mensaje "Se ha producido el error '1004' en tiempo de ejecución:
No se encontró el archivo especificado.

A pesar de este mensaje si inserta la foto al dar click en depurar me
resalta en amarillo:

Set Imagen = ActiveSheet.Shapes.AddPicture _
(Ruta, True, True, Izquierda, Arriba, 1, 1)

Espero puedan ayudarme la idea es q la foto cualquiera q fuese su tamaño
entre en un rango de celdas de A1 a B7 la columna A y B tendra un ancho de
6.86 c/u.
Se necesita ese tamaño por ser fotos tamaño carnet.

Espero su gran colaboracion gracias por su tiempo
Saludos Cordiales
Daniel Padilla Cañamero
Lima-Perú