Excel - Cambio de imagenes en funcion al valor en una celd

Hola a todos, gracias x la ayuda que siempre recibo... BUENO... tengo en una carpeta varias fotos de las mercaderias que tenemos en la empresa con el codigo como nombre de archivo ej. 2001.jgp, 2002.jpg, etc...
Necesito saber como puedo hacer por ej. si pongo 2001 en una celda... al lado me muestre la foto con el nombre 2001.jpg.... cambio el valor en la celda y pongo 2002...tiene que cambiar la imagen y mostrarme la foto con nombre 2002.jpg
Desde ya muchas gracias!!!!

una forma es hacerlo con una macro

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Dir(Target.Value) = "" Or Err <> 0 Then
ActiveSheet.Shapes("Foto").Delete
Exit Sub
End If
Dim f As Object
Application.ScreenUpdating = False
With ActiveSheet
.Shapes("Foto").Delete
Set f = .Pictures.Insert(Target.Value)
With f
.Name = "Foto"
.Left = Target.Left + Target.Width
.Top = Target.Top
.Width = 100
.Height = 100
End With
End With
Set f = Nothing
Application.ScreenUpdating = True
End Sub

y sin macros alguien hizo esto...
http://www.sendspace.com/file/qmho60

Saludos desde Baires, JuanC

Que rápida respuesta...excelente...voy a probarlo... Gracias JuanC!!!