Glad to help. Hope it didn't wipe out any shapes needed.

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Perfect !! And so simple.

Thanks.

"Don Guillett" wrote:

try
sub deleteshapes()
for each s in activesheet.shapes
s.delete
next s
end sub


--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I copy whole data sheets onto Excel. They have various pictures and
hyper-link picture icons. Is there a macro I could run to delete all of
this
extraneous stuff ?

Thanks,

Steve