Insertar imagen

Buenas a todos.

Desde antes gracias por su ayuda.

Tengo un codigo para insertar una imagen cuando cambia la celda "E5" la imagen la inserta segun el valor de la celda "G3". Pero quisiera que me insertara la imagen que se llama "Imagen no encontrada" cuando la imagen no exista dentro del directorio.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Target.Address = "$E$5" Then Exit Sub

On Error Resume Next

'Control de errores

Me.Shapes("Foto").Delete


    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 432.3077165354, 1, _

        118.8461417323, 105).Select

    Selection.ShapeRange.Name = "Foto"

    Selection.ShapeRange.Fill.Visible = msoFalse

    Selection.ShapeRange.Line.Visible = msoFalse



    On Error Resume Next

    With Selection.ShapeRange.Fill

        .Visible = msoTrue

        .UserPicture "C:\Users\JUAN ANTONIO\Desktop\Insertar Imagen\Fotos\" & [G3] & ".jpg"

        .TextureTile = msoFalse

    End With

   Range("E5").Select

End Sub


[/CODE]

Unicamente subo el codigo porque mi archivo pesa mucho y para evitar subirlo en tres o cuatro partes.

Ojala y me ayuden sabiendo que no subi el archivo.

Gracias y quedo es espera de sua yuda.