Delete combo boxes

OK now I understand that Jindon's code is suitable.

But I couldn't get a loop to work though.
If possible please revise and compare to a name like "*Drop Down To Del*", so it will delete only these drop downs. I should have mentioned that at the start.

Sub del()
    Dim obj As Object
    For Each obj In ActiveSheet.DropDowns
        If ActiveSheet.DropDowns = xlDropDown Then
        ActiveSheet.DropDowns.Delete
        End If
    Next
End Sub