Delete Check Box

[aambrose19]

Hello.

I added 2columns in which I orginally wanted check boxes in. I created one check box and dragged it down 1200 rows in each column. I now need to delete the boxes and no matter what I do, I cannot get rid of them entirely. It will delete all but the two original check boxes I inserted.

Any help would be greatly appreciated!!!
Thank you.

 

[SirJB7]

Hi, aambrose19!

Try this code:

Option Explicit
 
Sub RemoveControls()
    ' constants
    Const ksPattern = "CheckBox*"
    ' declarations
    Dim I As Long
    ' start
    ' process
    With ActiveSheet
        For I = .OLEObjects.Count To 1 Step -1
            With .OLEObjects(I)
                If .Name Like ksPattern Then .Delete
            End With
        Next I
    End With
    ' end
    Beep
End Sub

Adjust constant ksPattern value accordingly to your control names.

Regards!

 

[NARAYANK991]

Hi Ambrose ,

One more possibility - in the Home ribbon , click on Find & Select , click on Go To Special , select Objects ; all the objects will be selected. Press the Del key to delete all of them.

This will work only if you do not have any other objects which you wish to preserve !

Narayan

 

[aambrose19]

Thank you so much for the responses. They were quite helpful!

 

[Debraj]

If you have already solved.. then ignore..
and next time.. try
Page Layout > Arrange Group > Selection Pane..
OR Home > editing > Find & Select > Selection Pane..
It will open Selection Pane
EYE's are to toggle between Hide & Unhide..
You can press Ctrl + A to select all object and you can then press Ctrl + Click on the desired two check boxes to Invert select..
Simply Press delete to delete all selected Objects..

PS: just playing with all the new features... yahoooo...

 

[SirJB7]

@Debraj... Roy?
Hi, buddy!
Nice to read you again, sharp and clever as usual. Useful tip, I chose VBA because of the 1200 rows, eyes will got crossed using eyes feature
Regards!

 

[lohithsriram]

Excel shortcut: Select any object and press Ctrl + Shift + Spacebar to select all the objects in the sheet.