Bancos 1.0.0

Buenos días a todos, 

Antes que nada, muchas gracias a los interesados en ayudar a personas Noob en esto de las macros como yo.

Normalmente grabo algunas macros y le puedo entender un poco.

He estado trabajando en un documento en el cual me permita actualizar la imagen de una hoja al cambiar una celda con una lista, y que ejecutar la macro actualice la imagen.

Comencé por crear  nombrar a todas las imágenes con el mismo prefijo "IMG_" en una "tabla" .

Ahora bien, grabé la macro y le puse "Santander", y me funcionó pero ahora no sé cómo definir una variable del nombre de la imagen

------
Sub ActualizarImg()
 

    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(""IMG_"",RC[-1])"
    Range("D1").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.Copy
    ActiveSheet.Previous.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Shapes.Range(Array("IMG_Santander")).Select ------------> aquí es donde no sé cómo pudiera cambiarle para que sea el valor de la celda seleccionada.
    Selection.Copy
    ActiveSheet.Next.Select
    Range("D1").Select
    ActiveSheet.Paste
    
End Sub

---------------

Igual subo el documento para que quede más claro: