MonthName Function

     

  • It retrives monthname
  • 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

     

    Download The Workbook