How to copy worksheet template into multiple worksheets



I have a main worksheet I have been working on which I am now ready to roll
out to multiple worksheets.

Using this VB I already created the sheets with the tab names I needed as
the tab names are customer numbers

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

Set MyRange = Sheets("RawData").Range("RawData!L:L")
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

Now I am trying to figure out how to incorporate the ability to copy the
contents of the main sheet into those worksheets with the VB that creates the

Because the data will change I need to be able to update the workbook with
new customers and add the template for the same look and feel.

any suggestions .


Any suggestions


Assuming the sheet you wanted to copy was named "template", why not just
replace your line:

Sheets.Add After:=Sheets(Sheets.Count)

with this instead?
Sheets("template").Copy After:=Sheets(Sheets.Count)

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question