Deleting objects using Macro

I have always used a script like this (see below) to delete all objects on my workbook page. However, I have always had the problem that when a user other than myself runs this macro twice, it shifts/deletes a row and messes up the entire workbook. I just need a macro that does the same thing (deletes all objects on a sheet), but one that a user could click multiple times and not mess anything up.

Please Login or Register  to view this content.

Please read the forum guidelines.

Please Update your title to something more relevant to the question at hand.

Please use Code tags to display your sample code.

I think you just needed to clean up the code a bit.

Please Login or Register  to view this content.

That's not it. I get an error about memory (run time error '7')...do you think it could have something to do with two other large macros in the workbook? Other thoughts?

Please Login or Register  to view this content.

I tested the code in my machine and it works fine.

It deletes every autoshape in the sheet and nothing else.
If I click it again, the macro does nothing.

Please Login or Register  to view this content.

Note:
You need to fix your thread description as a lot of work is involved in having a searcheable database of problems.

dreicer_Jarr,

I see you changed your title, but the code tags needed to be placed too.

I did that for you this time and restored Portuga's responses...

Please remember to use the code tags and name your thread appropriately next time. Thanks.