Option Explicit
Sub testme()

Dim myDD As DropDown

For Each myDD In ActiveSheet.DropDowns
myDD.ListIndex = 0 ' or 1
Next myDD

End Sub

0 clears the dropdown.
1 choses the first choice.

gaalseth wrote:

I am using Excel 2000 and have created serveral combo boxes using the forms
menu. I want to create a macro that returns each drop down box to the first
item in the list of choices, or alternatively to an empty state. The combo
boxes all appear on the same sheet and the lists of items and cell references
are all on a different sheet. My familiarity with visual basic is very
limited.

--

Dave Peterson