Worksheet Copier

L

Legacy 436357

Guest
Hello,

Does anyone know code that will copy a template worksheet multiple times?

Original Sheet Name: Week Template

I plan to have one worksheet for each week in the year (52 plus the 'Week Template' sheet

Paste conditions:

1) row height
2) column width
3) fonts style sizes and colors
4) borders and border colors
5) cell fills
6) formulas

*basically all forms, fits, and functions of original sheet

Requests:

1) select the worksheet name to copy (Week Template)
2) select the number of sheets to be copied (52)
3) name the worksheets Week1, Week 2, Week 3, etc.

Thank you so very much for your assistance
 

Some videos you may like

Excel Facts

Spell Check in Excel
Press F7 to start spell check in Excel. Be careful, by default, Excel does not check Capitalized Werds (whoops)

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
38,576
Office Version
365
Platform
Windows
How about
Code:
Sub xjohnson()
   Dim i As Long
   
   For i = 1 To 52
      Sheets("Week template").Copy , Sheets(i)
      ActiveSheet.Name = "Week " & i
   Next i
End Sub
 
L

Legacy 436357

Guest
Thanks I tried the code and it stopped at 7 sheets. Any ideas?
 
L

Legacy 436357

Guest
Your code works there was something wrong with my workbook. I created a new workbook and no issues.

Thank you very much Fluff
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
38,576
Office Version
365
Platform
Windows
You're welcome & thanks for the feedback
 

Watch MrExcel Video

Forum statistics

Threads
1,095,400
Messages
5,444,253
Members
405,278
Latest member
Rashford

This Week's Hot Topics

Top