Hi,

I have a macro that I use, below... this deletes all pictures form Active worksheet, it worked in excel 2000 but I am trying to use this in excel 2010 & it does not delete the pictures. Does this code need to be changed in order to work in excel 2010 and/or what should I add or change.

Thanks for any help.

Sub Del_pics()
Application.ScreenUpdating = False
'delete pictures
For Each shp In ActiveSheet.Shapes
If shp.Type = msoPicture Then
shp.Delete
End If
Next shp
End Sub