Thanks a lot for your help. This is exactly what I need.

Sam

"FSt1" wrote:

opps. correction.
the code i posted works well provided there are no dupilicates.
here is modified code to handle duplicates.
Private Sub UserForm_Initialize()
Dim c As Range
Set c = Range("A65000").End(xlUp) 'or find end of Datelist
For i = Range("datelist").Rows.Count To 1 Step -1
If c < c.Offset(-1, 0) Then
Me.cBoxDates.AddItem Format(c, "m/d/yyyy"
End If
Set c = c.Offset(-1, 0) 'move up 1
Next
End Sub

slight over sight on my part. sorry.

regards
FSt1

"FSt1" wrote:

hi
technically this is more a for next question than a combo box question
but....hey...
you will have to modify your for next loop and add a couple of lines....
Dim c As Range
Set c = Range("A65000").End(xlUp) 'or find end of Datelist
For i = Range("datelist").Rows.Count To 1 Step -1
If c < c.Offset(-1, 0) Then
Me.cBoxDates.AddItem Format(c, "m/d/yyyy")
Set c = c.Offset(-1, 0) ' move up 1
End If
Next

i have comments on the lines you need to add with explinations

regards
FSt1

"Sam" wrote:

I have a list of dates that has several of the same date, however they are in
chronological order, named DateList. A combo box in a userform displays these
with the UserForm_Initialize event:

For each c in Range("DateList")
If c < c.Offset(-1, 0) Then
Me.cBoxDates.AddItem Format(c, "m/d/yyyy")
End If
Next

How can I get the combo box to display the dates in reverse order (latest to
earliest) if the list is earliest to latest?

Thanks,

Sam