Insertar

Tengo un file de imagen que inserto si existe una condición dada.

Necesito saber como al entrar de nuevo al archivo, si esta condición
ha cambiado, me muestre la nueva imagen.

Siempre que entro me deja la vieja, es decir me inserta una nueva,
pero no borra la vieja.

Aquí va la macro:

Sub Imagen()
'
' Imagen Macro
' Macro recorded 30/11/2008 by Manuel
'
'
If ActiveSheet.Range("K12").Value >= 50 Then
Range("I17").Select
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Manuel\Mis documentos\Mis imágenes
\Image002.jpg"). _
Select
ActiveWindow.SmallScroll Down:=4
ActiveWindow.SmallScroll ToRight:=1
Selection.ShapeRange.ScaleWidth 0.29, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.29, msoFalse,
msoScaleFromTopLeft
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("H23").Select
Else
Range("I17").Select
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Manuel\Mis documentos\Mis imágenes
\Image003.jpg"). _
Select
ActiveWindow.SmallScroll Down:=4
ActiveWindow.SmallScroll ToRight:=1
Selection.ShapeRange.ScaleWidth 0.29, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.29, msoFalse,
msoScaleFromTopLeft
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("H23").Select
End If
End Sub


Saludos,
Manuel