Code:
Worksheets("Sheet1").DropDowns("NameOfDropDown").RemoveItem 1