Private Sub ComboBox7_DropButtonClick()
ComboBox7.List = Array("1", "2", "3", "4", "5", "6", "7", "8", "9",
"10")
Combobox7.ListIndex = 0
End Sub

But if you have other Combobox7 events, this might fire the event.

--
Regards,
Tom Ogilvy

"susan" wrote:

I have a simple combobox with numbers:
Private Sub ComboBox7_DropButtonClick()
ComboBox7.List = Array("1", "2", "3", "4", "5", "6", "7", "8", "9",
"10")
End Sub

I would like the "1" to appear as a default. I have tried but cant
find anything for this!

Thanks
Mike