dates in dropdown

[James]

I would like my user to pick a date from a dropdown
combobox of 30 days. a15=today(), a14=a15-1, a16=a15+1,
etc. This gives me a nice list of current dates. The
problem is when I pick a date, the format in the dropdown
box changes to a number. The dates look fine in my
dropdown but when I select one I lose my formatting and
only have a number showing. THIA for any suggestions!
James

James at Landiscomputer.com

 

[Tom Ogilvy]

Private Sub Combobox1_Click()
Combobox1.Value = Format(clng(Combobox1.Value),"mm/dd/yyyy")
End Sub

An alternate method would be to use code to load the combobox.

for each cell in Range("A1:A15")
Combobox1.AddItem cell.Text
Next

Then the combobox contains strings which will display correctly when
selected.