Excel - Insertar Imagenes

Necesito ayuda, estoy utilizando el siguiente codigo

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Foto As Object, Arriba As Double, Izquierda As Double, Ancho As Double, Alto As Double
Dim ruta As String
Application.ScreenUpdating = False
On Error Resume Next
If Not Target = [a1] Then Exit Sub
Me.Shapes("Foto").Delete
ruta = ThisWorkbook.Path & "" & [a1] & ".jpg"
Set Foto = Me.Pictures.Insert(ruta)
With Range("c1:d8")
Arriba = .Top
Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With Foto
.Name = "Foto"
.Top = Arriba
.Left = Izquierda
.Width = Ancho
.Height = Alto
End With
Set Foto = Nothing
Application.ScreenUpdating = True
End Sub

En el que me permite ingresar automaticamente una imagen dependiendo del valor de una celda.

Lo que necesito hacer es ingresar varias imagenes diferentes a la vez en la misma hoja dependiendo de diferentes valores en determinadas celdas. De antemano muchas gracias.

Saludos.

Date una vueltita por aqui:

http://foros.emagister.com/tema-dos_sentencias_vba_en_un-12890-748677-1.htm

Abraham

Gracias abraham, si encontre lo que necesitaba, Muchas gracias.