Retrieve MonthName
Sub Retrieve_MonthName()
Range("A1").CurrentRegion.ClearContents
Dim i As Integer
For i = 1 To 12
Cells(i, 1).Value = MonthName(Month:=i, abbreviate:=False)
Cells(i, 2).Value = MonthName(Month:=i, abbreviate:=True)
Next
End Sub