you could switch to a listbox or a combobox and get away easier.
Private Sub UserForm_Initialize() Dim i As Integer With Me.ComboBox1 For i = 1 To 12 .AddItem MonthName(i) Next i End With End Sub Private Sub ComboBox1_Change() MsgBox ComboBox1.Value End Sub