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.

  Worksheets("dept council").Select
    Range("A1").Select
    Worksheets("dept council").Shapes.SelectAll
    Selection.DELETE
    Range("A1").Select
    Worksheets("control panel").Select
    Range("A1").Select

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.

Worksheets("dept council").Select
Worksheets("dept council").Shapes.SelectAll
Selection.DELETE
Worksheets("control panel").Select

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?

Sub DELETE()
'
' DELETE Macro
' Macro recorded 3/18/2008 by Baptist User

    Worksheets("dept council").Select
    Worksheets("dept council").Shapes.SelectAll
    Selection.DELETE
    
    
    End Sub

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.

Sub DELETE()

Worksheets("dept council").Select
Worksheets("dept council").Shapes.SelectAll
Selection.DELETE

End Sub

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.