Odyrus
07-06-2012, 08:00 AM
Good day,
I use the following code to create worksheets from a list on my interface worksheet.
What I'd like to do is incorporate copying a template slide to these worksheets after they've been created.
Any thoughts on how to best accomplish this are much appreciated!
Sub CreateSheetsFromAList()
Dim MyCell As Range, MyRange As Range
Set MyRange = Sheets("interface").Range("A2")
Set MyRange = Range(MyRange, MyRange.End(xlDown))
For Each MyCell In MyRange
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = MyCell.Value
Next MyCell
End Sub
I use the following code to create worksheets from a list on my interface worksheet.
What I'd like to do is incorporate copying a template slide to these worksheets after they've been created.
Any thoughts on how to best accomplish this are much appreciated!
Sub CreateSheetsFromAList()
Dim MyCell As Range, MyRange As Range
Set MyRange = Sheets("interface").Range("A2")
Set MyRange = Range(MyRange, MyRange.End(xlDown))
For Each MyCell In MyRange
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = MyCell.Value
Next MyCell
End Sub