VBA: Remove buttons by name

'If the forms menu, use
Sub RemoveButtons()     
Dim ShapeA As Button     
For Each ShapeA In ActiveSheet.Buttons           
If ShapeA.Caption = "Doodle" Then ShapeA.Delete     
Next ShapeA
End Sub

'If from the control toolbox, use
Sub RemoveButtons()     
Dim ShapeA As OLEObject     
For Each ShapeA In ActiveSheet.OLEObjects           
If ShapeA.Object.Caption = "Doodle" Then ShapeA.Delete     
Next ShapeA
End Sub