Tommi,

Try something like

Dim SH As Shape
For Each SH In ActiveSheet.Shapes
SH.Delete
Next SH



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Tommi" wrote in message
...
Hello!
Can someone help me how I get all Shapes (which I am using as
buttons for
macros) deleted in activesheet.
The problem is that I don't know the name of those Shapes.
(There is also
Shapes in other sheets, which should not be deleted)

I thank you for your help!

BR,
Tommi