Making a Sheet copy

[tigersfinish]

Excel 2010. I have a sheet of data. I need to make 15 copies of this sheet.
Do I have to make one copy at a time, or is there a shortcut? Thanks

 

[GS]

Excel 2010. I have a sheet of data. I need to make 15 copies of

this sheet. Do I have to make one copy at a time, or is there a
shortcut? Thanks

What do you mean? Copy to active workbook? New workbook? New workbook
for each copy?

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion

 

[tigersfinish]

Excel 2010. I have a sheet of data. I need to make 15 copies of this sheet.

Do I have to make one copy at a time, or is there a shortcut? Thanks

In the same workbook, I need 15 copies of the original sheet. So when I an done, I have 16 sheets of the same data.

 

[GS]

Put this macro in a standard module and Alt+F8 to run it.

Sub CopySheets()
Dim n&, wksSource As Worksheet
Const lCopies& = 15
Set wksSource = ActiveSheet
For n = 1 To lCopies
wksSource.Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
Next 'n
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion