create and name 12 new sheets in one go?

[merlin777]

I need to create 12 new sheets in a worksheet and label them january to december? Not too bad as a one-off but probably have to it quite often so automation would be handy.

they would be sheets 1 to 12 and there will be a sheet 13 and 14 and , one for data and 2 for summaries but i could put those in front if its easier. he data sheet can have a column with January to December on it.

I was told how do this many years ago but i lost my notes!

 

[Fluff]

How about

Sub merlin777()
   Dim i As Long
   
   For i = 12 To 1 Step -1
      Sheets.Add(Sheets(1)).Name = MonthName(i)
   Next i
End Sub

 

[mumps]

Try:

Sub CreateMonthSheet()
    Application.ScreenUpdating = False
    Dim x As Long, y As Long
    For x = 1 To 12
        Worksheets.Add after:=Sheets(Sheets.Count)
        ActiveSheet.Name = MonthName(x)
        For y = 1 To 12
            Cells(1, y) = MonthName(y)
        Next y
    Next x
    Application.ScreenUpdating = True
End Sub

 

[merlin777]

Try:

Sub CreateMonthSheet()
    Application.ScreenUpdating = False
    Dim x As Long, y As Long
    For x = 1 To 12
        Worksheets.Add after:=Sheets(Sheets.Count)
        ActiveSheet.Name = MonthName(x)
        For y = 1 To 12
            Cells(1, y) = MonthName(y)
        Next y
    Next x
    Application.ScreenUpdating = True
End Sub

thanks, guys. How do i reference the labels for the sheet tabs in these? They are in the sheet labelled DATA in cells J3 to J14

 

[merlin777]

dumb question - please ignore it!

 

[Fluff]

If you mean you want to add the monthname in J3:J14 try

Sub merlin777()
   Dim i As Long
   
   For i = 12 To 1 Step -1
      Sheets.Add(Sheets(1)).Name = MonthName(i)
      Sheets("Data").Range("J" & i + 2).Value = MonthName(i)
   Next i
End Sub