Sub NOSHAPES()' Removes ALL SHAPES
For Each WS In ThisWorkbook.Sheets
For Each SH In WS.Shapes
SH.Delete
Next SH
Next WS
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Karina" wrote in message
...
Already sent you the file, thanks.

"Don Guillett" wrote:

If desired, send your file to my address below. I will only look
if:
1. You send a copy of this message on an inserted sheet
2. You give me the newsgroup and the subject line
3. You send a clear explanation of what you want
4. You send before/after examples and expected results.


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Karina" wrote in message
...
I have an excel sheet in wich I paste everyday new information,
replacing
the
previous day information. There's a clipart that has been pasted over
and
over, now the file is very slow and I can't erase all the cliparts
(thousands). In excel 2003 it was possible to select all the cliparts
in
one
step, now in 2007 I can't and it's impossible for me to erase the
cliparts
one by one.

Please help!

.