Mostrar imagenes asociadas a una celda

Buenas,

Como puedo modificar esta macro que hace lo siguiente:

En la Celda C4 se muestra un desplegable con las opciones a escoger,
al escoger la opción requerida inmediatamente en el rango de "B6:D21"
se muestra la foto.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells = Range("C4") Then
        Application.ScreenUpdating = False
        foto = Range("C4").Value
        foto = Replace(foto, " ", "-")
        foto = foto & ".jpg"
        rutayarchivo = ActiveWorkbook.Path & "\" & foto
        Me.Shapes("foto").Delete
        Set fotografia = Me.Pictures.Insert(rutayarchivo)
        With Range("B6:D21")
            Arriba = .Top
            Izquierda = .Left
            Ancho = .Offset(0, .Columns.Count).Left - .Left
            Alto = .Offset(.Rows.Count, 0).Top - .Top
        End With
        With fotografia
            .Name = "foto"
            .Top = Arriba
            .Left = Izquierda
            .Width = Ancho
            .Height = Alto
            End With
        Set fotografia = Nothing
        Application.ScreenUpdating = True
    End If
End Sub

Como se puede modificar la macro para que me muestre de la siguiente
forma:

no lo quiero en lista desplegable, quiero tener la lista en las celdas
de la Columna C, a partir digamos de la Celda C10, y que al momento de
hacer click en la Celda C10 aparezca la foto en pantalla que hace
referencia a ese "codigo o palabra" escrito en dicha celda, y si hago
click en la C15 de igual forma, aparezca la foto en pantalla que hace
referencia a dicha celda.

Saludos,

Johann