populate combo with month and year

[Paulc]

Hi,

I'm using XL 2002.

How do I populate ComboBox1 programtically, with a range of month and years
(using the format mmm-yy) starting with the current month of the current
year, incrementing monthly, year on year for 12 months?

So the combo would contain Apr-07 and end with Apr-08

Any ideas appreciated. Thank you.

Paul.

 

[Greg Maxey]

In the userform initialize event use something like:
Private Sub UserForm_Initialize()
Dim i As Long
Me.ComboBox1.AddItem Format(Date, "mmm yy")
For i = 1 To 11
Me.ComboBox1.AddItem Format(DateAdd("m", i, Date), "mmm yy")
Next i
End Sub

 

[Paulc]

XL'nt - thank you.

In the userform initialize event use something like:
Private Sub UserForm_Initialize()
Dim i As Long
Me.ComboBox1.AddItem Format(Date, "mmm yy")
For i = 1 To 11
Me.ComboBox1.AddItem Format(DateAdd("m", i, Date), "mmm yy")
Next i
End Sub