Issue incrementing a variable

[MrFlooglebinder]

Hi Guys,
I am hoping someone can pin point what I am doing wrong here.


I am trying to auto generate 31 sheets, each sheet is named numerically from 1-31
My issue is that every 10th sheet gives me a number that is not correct.
The sheets end up getting labeled like the following. (sheets separated by commas)
1,2,3,4,5,6,7,8,9,143043,11,12,13,14,15,16,17,18,19,243043,21,21....etc


Note: before I run the code I already have a sheet labeled "1" which has a template on it that is copied to each new sheet that gets generated.

Sub Macro1()
Dim sheetname As String
sheetname = 2
    For i = 2 To 31
        Sheets("1").Select
        Cells.Select
        Selection.Copy
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = WorksheetFunction.Text(Now(), sheetname)
        ActiveSheet.Paste
        sheetname = sheetname + 1
    Next i
Sheets("1").Select
Range("V3").Select
    
End Sub

 

[NARAYANK991]

Hi ,

Try this :

Sub Macro1()
    Dim sheetname As Integer
    sheetname = 2
    For i = 2 To 31
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = WorksheetFunction.Text(sheetname, "0")
        Sheets(1).Cells.Copy ActiveSheet.Range("A1")
        sheetname = sheetname + 1
    Next i
    Sheets(1).Select
    Range("V3").Select
End Sub

 

[MrFlooglebinder]

Hey Thanks for your reply,
Your code worked a treat for generating the numbered sheets, but it messed a couple of other things up in the process.
However, you provided exactly what I needed so was able to tweak it and the below is the result which works great.
Thanks for your help!

Sub Macro1()
    Dim sheetname As Integer
    sheetname = 2
    For i = 2 To 31
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = WorksheetFunction.Text(sheetname, "0")
        Sheets("1").Cells.Copy ActiveSheet.Range("A1")
        sheetname = sheetname + 1
    Next i
    Sheets("1").Select
    Range("V3").Select
End Sub

 

[NARAYANK991]

Hi ,

Sorry. I understand ; Sheets("1") is not the same as Sheets(1).