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