Loading A Combo Box With The Months Of The Year

to populate a combo box with the months of the year, without referencing an area on a sheet.

Here is the code that works for me:

Private Sub UserForm_Initialize()
Dim i As Long
Dim varMonths As Variant

varMonths = Array("Jan", "Feb", "Mar", _
"Apr", "May", "Jun", "Jul", "Aug", _
"Sep", "Oct", "Nov", "Dec")

For i = LBound(varMonths) To UBound(varMonths)
Me.ComboBox1.AddItem varMonths(i)
Next i

End Sub

The original question and answer can be found here: [url]

I see there's a second reply which looks a little slicker, but the above code is tried and tested by me.