Pick Lists
 

Dude,

You can load the months:

Private Sub UserForm_Initialize()
myList = Array("January", "February", "March", "April", "May", "June",
"July", _
"August", "September", "October", "November", "December")

ComboBox1.List = myList

End Sub

And then paste it somewhere in the worksheet:

Private Sub ComboBox1_Change()
Range("A1") = ComboBox1.Text
End Sub

Regards,
Robert