How come this:
Private Sub UserForm_Initialize()
For d = Now() - 45 To Now()
listDate.AddItem Format(d, "mm/dd/yyyy")
Next d
End Sub
works fine. Meaning it fills a dropdown list with 45 dates, starting with the oldest.
But, switch it a bit:
Private Sub UserForm_Initialize()
For d =...