Doh ! Listbox of course. My mistake, sorry, I was thinking combobox'ed. Once
something is preselected in a listbox then something will always be, as in
the other replies.

--
HTH. Best wishes Harald
Followup to newsgroup only please

"Harald Staff" skrev i melding
...
Hi

Set the style to "list" and make sure something (=last item) is selected
before display.
Something like

Private Sub UserForm_Initialize()
' This is it part 1 :
ComboBox1.Style = fmStyleDropDownList
' List fill. Whatever.
ComboBox1.AddItem "1"
ComboBox1.AddItem "2"
ComboBox1.AddItem "3"
ComboBox1.AddItem "4"
' This is it pt 2 :
ComboBox1.ListIndex = ComboBox1.ListCount - 1
End Sub

--
HTH. Best wishes Harald
Followup to newsgroup only please.

"Haas" wrote in message
...
Hi all,

I have created a userform with a list of dates to choose from in a List
Box;
the user can choose only one date, but in case they don't, there is
always a
default date selected, being the last item on the list. How can I
achieve
this?

Thanks much in advance!