Copy a 'Template' sheet onto multiple other sheets

Solved/Closed
Report
-
Posts
4476
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
August 2, 2020
-
Hello, i have been trying to create a sheet that creates new sheets from a list and i have been using the following macro to generate the sheets from "Site List" (sheet1):

Sub CreateSheetsFromAList()
Dim MyCell As Range, MyRange As Range

Set MyRange = Sheets("Site List").Range("A2")
Set MyRange = Range(MyRange, MyRange.End(xlDown))

For Each MyCell In MyRange
Sheets.Add After:=Sheets(Sheets.Count) 'creates a new worksheet
Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet
Next MyCell
End Sub


I have created a "Template"(Sheet2) that i want to be automatically transfered onto all of the sheets on the list in Sheet 1. Im relatively new to Macros but trying to learn fast. If anyone can help that would be great.

S

1 reply

Posts
4476
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
August 2, 2020
768
Sounds like you want to copy template and name it as per your call
If that is the case then instead of creating a new sheet like this
Sheets.Add After:=Sheets(Sheets.Count)
copy the template sheet and then rename it