Loadimage en VB

Hola gente. Necesito una ayudita.

Tengo una liga de fútbol en excel 2010, y mi idea es que según el equipo que vaya líder (en una celda concreta), aparezca a través de un loadpicture de VB, el escudo del equipo en una imagen incrustada previamente.

Estaba trabajando con este código que pillé por aquí:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo salida
If Range("E2") <> "" Then
foto = Target.Value
ActiveSheet.Image1.Picture = LoadPicture("K:\mis ligas\IMAGENES\España\" & foto & ".jpg")
End If
Exit Sub
salida:
MsgBox "hay un error en la macro del escudo", vbCritical
End Sub

Y en un libro me iba bien cuando cambio el nombre del equipo en la celda. Pero el problema es que si la celda a la que me refiero (en este caso E2) tiene una fórmula, el macro no funciona y me da error.

Entonces ¿alguien me puede ayudar con esto? En la celda E2 tengo que tener una fórmula para la clasificación. Y quiero que en una imagen incrustada, me aparezca el escudo del equipo que va primero en la tabla. Y que cambie cuando cambie el equipo.

¡Gracias!