Is there a way to delete all the commandbuttons in the entire
workbook? I found some code below that does it for a single sheet.
Thanks!

Sub DeleteCommandButtons()
Dim Obj As OLEObject
For Each Obj In ActiveSheet.OLEObjects
If Obj.progID = "Forms.CommandButton.1" Then
Obj.Delete
End If
Next Obj
End Sub

Hi steve

Sub OLEObjects3()
'Delete/hide only all CommandButtons from the Control Toolbox
Dim obj As OLEObject
Dim sh As Worksheet

For Each sh In ActiveWorkbook.Worksheets
For Each obj In sh.OLEObjects
If TypeOf obj.Object Is MSForms.CommandButton Then
obj.Delete
' or obj.Visible = False if you want to hide them
End If
Next
Next sh
End Sub


See also
http://www.rondebruin.nl/controlsobjectsworksheet.htm


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Steve" <(E-Mail Removed)> wrote in message news:e9d304af-e741-41c4-8a3a-(E-Mail Removed)...
> Is there a way to delete all the commandbuttons in the entire
> workbook? I found some code below that does it for a single sheet.
> Thanks!
>
> Sub DeleteCommandButtons()
> Dim Obj As OLEObject
> For Each Obj In ActiveSheet.OLEObjects
> If Obj.progID = "Forms.CommandButton.1" Then
> Obj.Delete
> End If
> Next Obj
> End Sub