Remove Multiple Nested Macro Buttons

[Gerard McInerney]

I have a worksheet which holds various information for 100 nights over a 12 month period (data entered for 2 nights per week). I have a Macro Button next to each night (100 buttons) which runs the same macro.
I no longer require this macro so I deleted it. I decided to remove the macro buttons only to discover that the buttons have nested on top of each other. I am speaking about hundreds of buttons in each case.
I have manually removed the buttons for the first 60 nights which was a very laborious task. Example night 50 had 330 buttons nested & the numbers seem to multiply the further down I go on my sheet - night 60 had nearly 500 buttons. I cannot explain how this has happened. I did copy the first nights data down to create the others. The file is in use for a number of years.
My question is: can I remove the buttons any quicker way other than cutting. I am using Excel 2007 with Windows 7.
Any help would be appreciated.
Gerard McInerney

 

[6StringJazzer]

Place this code into the sheet module for the sheet containing the buttons. When you run it, it will delete all buttons on the sheet. Be careful because if you have any other controls or shapes, it will delete those too.

Private Sub RemoveButtons()

   Dim S As Shape
   
   For Each S In Shapes
      S.Delete
   Next S

End Sub

 

[Fluff]

Another option, which will also delete all buttons, shapes etc.

Sub GerardMcinerney()
  Shapes.SelectAll
  Selection.Delete
End Sub

 

[6StringJazzer]

Very nice, did not know about that method.

 

[Fluff]

I since discovered that it can be reduced to

    ActiveSheet.DrawingObjects.Delete

 

[Gerard McInerney]

ActiveSheet.DrawingObjects.Delete

I'm glad to report that this one worked perfectly
This will save me a lot of time.
Thanks for the help

 

[Fluff]

Glad we could help & thanks for the feedback.