Retrieve MonthName

  • MonthName function returns Month Name
  • This function consits of two functional arguments (i)Month, Abbrevation
  •  

    Download The Workbook

     

    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