try
Sub ShapesCut()
For Each S In ActiveSheet.Shapes
S.Cut
Next
End Sub

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I recorded a macro to delete 3 pictures that are copied onto my
spreadsheet
every week. However, when I run the macro, I get a run time error stating
"item with the specified name not found". Looking at the macro, it
indicates
shapes ( picture 1), shapes ( picture 2), etc.

Is there a fix for this ?

Thanks,

Steve