Copy a 'Template' sheet onto multiple other sheets

Solved/Closed
SWILLER - Nov 24, 2015 at 05:24 AM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Nov 24, 2015 at 09:07 PM
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

Related:

1 response

rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Nov 24, 2015 at 09:07 PM
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
0