VBA program to ADD sheets with the Month Names

!.....Program to Add sheets in the Activeworkbook with all the Month Names.......!

Sub Add_Sheets()

On Error Resume Next
Application.DisplayAlerts = 0
For i = 1 To 12
On Error Resume Next
Sheets(MonthName(i)).Delete
Sheets.Add.Name = MonthName(i)
ActiveSheet.Next.Select
Next
Sheets(Array("sheet1", "sheet2", "sheet3")).Delete
Application.DisplayAlerts = 1

End Sub