INSERTAR VARIAS IMÁGENES CON "forms.image"

Kisiera por INSERTAR VARIAS IMÁGENES (10), a partir de una CELDA
($A$1); en diferentes POSICIONES DE UNA HOJA.

Kisiera poder HACER ALGO ASÍ : CÓDIGO1 para IMAGEN1, CÓDIGO 2 para
IMEGEN2,CÓDIGO3 para IMEGEN3. etc.

Los nombres de las IMÁGENES están en la COLUMNA "A" >
[a1,a2,a3,a4,a5,a6,a7,a8,a9,a10].
Los ARCHIVOS están en la RUTA "C:\excel\"; y se LLAMAN
1,2,3,4,5,6,7,8,9,10 .JPG)

MUCHÍSIMAS GRACIAS DE ANTEMANO.
pd:fELIZ AÑO

== USO EL SIGUIENTE CÓDIGO Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$A$1" Then Exit Sub
Application.ScreenUpdating = False
De_donde = "C:\EXCEL\" & [a1] & ".jpg"
With Me.Image1
If Dir(De_donde) = "" Then Me.Image1.Visible = False: Exit Sub
.Picture = LoadPicture(De_donde)
.PictureSizeMode = fmPictureSizeModeZoom
.Visible = True
End With
End Sub
==