Making a Sheet copy


T

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
 
Ad

Advertisements

G

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
 
T

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.
 
Ad

Advertisements

G

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
 

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

Top