The code below creates a ComboBox consisting of all of the
first (day) in month dates in between a start date and an
end date. I am having problems with the formatting of the
ComboBox control. When I click on the drop down, I see all
of the dates in the correct date format (e.g. Jan-00, Feb-
00, etc). However, when I select one of the dates, it
appears as a serial value and not formatted. How do I get
it formatted? Thanks in advance - any help is appreciated.

Ray Kanner

Private Sub ComboBox1_DropButtonClick()
Dim s As Date, e As Date, i As Date

s = Range("Start").Value
e = Range("End").Value

ComboBox1.Clear
i = DateSerial(Year(s), Month(s), 1)

Do While i < e
ComboBox1.AddItem Format(i, "mmm-yy")
i = DateAdd("m", 1, i)
Loop

End Sub

Private Sub ComboBox1_Change()
Range("NewStart").Value = ComboBox1.Value
End Sub