Delete combo boxes

How can multiple combo boxes be deleted in an Excel sheet using code.
These are the type Combo Box (Form Control) inserted from the Visual Basic Developer tab.
The name is Drop Down #.
Below code works only if you know the name.

ActiveSheet.Shapes("Drop Down 2").Select
Selection.Delete

Capture.PNG

Hi, thanks, this was correct.

You can also

    ActiveSheet.DropDowns.Delete

OK thanks I will try this as well.

I want to point out the danger of using loops

For Each obj In ActiveSheet.Shapes
    If obj.FormControlType = xlDropDown Then

Let's start from the beginning, though.
Let's assume that in the sheet, in addition to the DropDown controls we inserted ourselves, there are also cells with drop-down lists (from data validation). The control that develops the list is sometimes classified (*) to the xlDropDown type when we search the Shapes collection. For all validation lists in active sheet, there is only one control whose position changes depending on the data validation cell that is currently active. As you might guess, the control is removed in the loop quoted above. Fortunately, when the file is reopened, the control is rebuilt.
However, this control is not part of the DropDowns collection ( by default hidden since version 2007). At least that's what the tests show.

* I purposely used the phrase "sometimes classified", because from testing it seems that it varies with this. Once it is, and other times it is not so classified. I have already encountered the ambiguity of the classification of graphic objects in the past with the Pictures collection. But I never learned the reason for this behavior.

Artik

OK thanks for letting me know.
How could it be done so it only loops through the relevant objects mentioned in the original post?

Did you try the code I posted?

All you need is that one line.

lb_33, if you want to remove all DropDown controls (I'm thinking of the "real" ones), it doesn't make sense to do it in a loop. Use jindon's code.
On the other hand, if you want to delete or modify only specific controls, then use a loop across the DropDowns collection, not across the Shapes collection.

Artik

Then

Sub test()
    Dim i As Long
    With ActiveSheet.DropDowns
        If .Count Then
            For i = .Count To 1 Step -1
                If .Item(i).Name Like "*Drop Down To Del*" Then .Item(i).Delete
            Next
        End If
    End With
End Sub

Great, thanks to both as both macros work.