Delete multiple command buttons

[ExcelRoy]

Hi,

Just wondering if there is an easy way to delete all command buttons on a particular sheet?

they are spread all over and are a lot of em

Thanks

 

[VoG]

Try

Sub ctest()
Dim myBox As OLEObject
For Each myBox In ActiveSheet.OLEObjects
    If TypeName(myBox.Object) = "CommandButton" Then
        myBox.Delete
    End If
Next myBox
End Sub

 

[ExcelRoy]

Thanks VoG,

i have pictures that act as a command button? is there a way to delete all "pictures" on a worksheet

I assume your code deletes the VB code?

Thanks for the reply

 

[VoG]

Try this

Sub dtest()
ActiveSheet.Pictures.Delete
End Sub

The code associated with the pictures should also be deleted.

 

[ExcelRoy]

LOL

just soooo good!

Thanks VoG saved me hours of manual deleting!