Replicating Worksheets

[tjc154]

I'm using the following macro to create multiple worksheets.

Sub ReplicateSheets()
Dim i As Integer
    For i = 1 To 20
        Sheets("Game").Copy after:=Worksheets(Worksheets.Count)
        
    Next
End Sub

–this follows the code

I would like the macro to append the subsequent sheet names as follows: Game 1, Game 2, Game 3, Game 4, etc. Currently it puts a number in brackets after the name to indicate its a duplicate sheet.

How do I adjust the code to achieve the desired results?

Thanks,

Tom

 

[dave3009]

Like this perhaps

Sub ReplicateSheets()
Dim i As Integer
    For i = 1 To 20
        Sheets("Game").Copy after:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = "Game " & i
    Next
End Sub

 

[tjc154]

Thank you that worked.

Tom

 

[Sander2309]

I'm looking for some code that does something similar.

I have a worksheet called "product" which contains 45 unique productcodes in cells A1:A45, and I want the code to create a duplicate of a worksheet called "source" for each product, change the name of the new worksheet to the productcode and enter the productcode in cell A1.

Can you help me?

 

[dave3009]

Assuming you have a header row in the Products sheet

Sub splitproducts()
Dim shProd As Worksheet: Set shProd = Sheets("Products")
Dim shSrc As Worksheet: Set shSrc = Sheets("Source")
Dim Products As Long: Products = shProd.Range("A" & Rows.Count).End(xlUp).Row
Dim i As Long
For i = 2 To Products
    shSrc.Copy After:=Sheets(Sheets.Count)
    With ActiveSheet
        .Name = shProd.Range("A" & i)
        .Range("A1").Value = shProd.Range("A" & i)
    End With
Next i
End Sub