Hello
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If sh.Type = msoPicture Then sh.Delete
Next sh

HTH
Cordially
Pascal

"WBTKbeezy" a écrit dans le message de
news: ...
Hello:

I am trying to write/record a macro that will clear out a worksheet in
specific ranges. It is easy to deal with the text portions, but the
worksheet
also contains a picture that also needs to be deleted, but the picture is
different each week and always has a different name. Is there a way to
select
a shape if I can't pinpoint the name value?
Thanks.