MonthName Function
Private Sub CommandButton1_Click() Dim max As Integer max = 12 For i = 1 To max Range("B" & i).Value = MonthName(i, True) Next End Sub