Buenas Tardes, necesito ayuda con respecto a borrar una imagen que inserto con codigo VB en Excel, anexo parte del codigo:

Sub V4E()
'
Dim DataPath As String
Dim PicturePath As String


'Import the data
DataPath = "C:\Documents and Settings\sosal\Escritorio\templates\" + Hoja1.ComboBox1 + ".dat"
PicturePath = "C:\Documents and Settings\sosal\Escritorio\templates\" + Hoja1.ComboBox1 + ".wmf"

'Imports the image
Range("A35").Select
Sheets(1).Pictures.Insert(PicturePath).Select

'Position the image
Sheets(1).DrawingObjects(1).Left = 5
Sheets(1).DrawingObjects(1).Top = 275

'Image is passed in ClipBoard as Exteneded MetaFile
' Width and Height need to be in points (1/72in) so:

Selection.ShapeRange.ScaleWidth 1.05, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.22, msoFalse, msoScaleFromTopLeft

End Sub


Necesito ahora una rutina que me borre la imagen anterior en caso de que selecione otra en el Combo!!!!
Intente con un macro pero cuando me genera la imagen me coloca una denominacion a la imagen aleatoria ejemplo:


ActiveSheet.Shapes("Picture 179").Select
Selection.Delete

Como podria selecionarla y borrarla?????


Gracias por su ayuda