Input Box with Drop down list

[david000]

There is a handy constant for this also.

Private Sub Userform_Initialize()
Dim i As Integer
For i = 1 To 12
    ComboBox1.AddItem MonthName(i)
Next i
End Sub