Try putting it in the _initialize procedure (behind the userform):

Private Sub UserForm_Initialize()
me.ComboBox1.Value = Worksheets("Sheet2").Range("A1").Value
'or
me.ComboBox1.Value = Worksheets("Sheet2").Range("A1").Text
'or
me.ComboBox1.Value _
= format(Worksheets("Sheet2").Range("A1").Value, "mm/dd/yyyy")
End Sub

Only use one of those, though.


Steph wrote:

I tried that, but I'm not sure where to put that line of code. I tried it
at the beginning of my showform code below, but errored:

Sub ShowUserForm()

ComboBox1.Value = Worksheets("Sheet2").Range("A1").Value
UserForm1.Show

End Sub
"Dave Peterson" wrote in message
...
How about just setting the value?

me.combobox1.value = format(date,"mm/dd/yyyy")





Steph wrote:

Hello! I have a ComboBox being populated with a named range of dates
(called date). In another cell (named range "default") I have todays
date.
How can I have the value in the combobox default to todays date, or
essentially default to the named range "default"? Thanks in advance!!

--

Dave Peterson

--

Dave Peterson