INSERTAR VARIAS IMAGENES EN VARIOS RANGOS A PARTIR DE VARIAS CELDAS

Es el CÓDIGO DE ABAJO; solo que habrá lo siguiente:

IMAGEN 1:
1.- Directorio: >>> "C:\Excel\portadas\"
2.- CELDA A1: Nombre de las PORTADAS>>> Portada1,portada2, portada3,
portada4, portadaN
3.- RANGO DE VISUALIZACION>>> B1:D:20

IMAGEN 2:
1.- Directorio: >>> "C:\Excel\Croquis\"
2.- CELDA A1: Nombre de los CROQUIS>>> Croquis1, Croquis2, Croquis3,
Croquis4, CroquisN
3.- RANGO DE VISUALIZACION>>> B30:D:50

IMAGEN 3:
1.- Directorio: >>> "C:\Excel\Credencial\"
2.- CELDA A1: Nombre de los CREDENCIALES>>> Credencial1,
Credencial2, Credencial3, Credencial4, CredencialN
3.- RANGO DE VISUALIZACION>>> B60:D:80

ESO ES TODO LO KE QUIERO HACER, Y PRECISAMENTE ESTO PORQUE NO KIERO KE
SEA MUY PESADO EL ARCHIVO.

De verdad JURO ke NO VUELVO A PREGUNTAR.. Gracias de antemano y
quedo de USTEDES.
herchan@gmail.com.
El CÓDIGO DE AKÁABAJO LO HACE BIEN, solo ke lo hace PARA UN ARCHIVO Y
PARA UN RANGO. Gracias

==Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$A$1" Then Exit Sub
Dim De_donde As String, Foto As Object, _
Arriba As Double, Izquierda As Double, Ancho As Double, Alto
As Double
Application.ScreenUpdating = False
On Error Resume Next
Me.Shapes("La_Foto").Delete
De_donde = "C:\Excel\" & [a1] & ".JPG"
If Dir(De_donde) = "" Then Exit Sub
Set Foto = Me.Pictures.Insert(De_donde)
With Me.Range("f1:h21")
Arriba = .Top
Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With Foto
.Name = "La_Foto"
.Top = Arriba
.Left = Izquierda
.Width = Ancho
.Height = Alto
End With
Set Foto = Nothing
End Sub