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:
Copy a 'Template' sheet onto multiple other sheets
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