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