userform date list dropdown weirdness

[austin350s10]

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 = Now() To Now() - 45     '<====== switched the order
 listDate.AddItem Format(d, "mm/dd/yyyy")
Next d
End Sub

and it produces a blank list??? Shouldn't this list 45 dates starting the newest { now() }?

What am I missing here?

 

[gsistek]

d is incrementing +1 each time, so Now() + anything will never reach Now() - 45. Use Step - 1 toincrement by -1.
i.e.
For d = Now() To Now - 45 Step -1

 

[austin350s10]

Very nice. Thanks a ton!!!

 

[gsistek]

Your welcome. Thanks for the feedback!