Create a copy - Worksheet

's Computer Specifications

Dear All,

I want to create more than 25 copy of the worksheet along with same data.
Most of the time i used (Right click) the sheet-->Move or copy-->create copy.
do the same 25 times.
Is there any possible to cretae that much sheets in a single program..?

Thanks in advance for your reply.

Have a Nice day..!
Regards,
Vadhimoo.

's Computer Specifications

You could try this way:-

Sub copysheets()
For copies = 1 To 25
Sheets("Sheet1").Copy After:=Sheets(1)
Next
End Sub

Alter the sheet name to suit

Mike

"Vadhimoo" wrote:

> Dear All,
>
> I want to create more than 25 copy of the worksheet along with same data.
> Most of the time i used (Right click) the sheet-->Move or copy-->create copy.
> do the same 25 times.
> Is there any possible to cretae that much sheets in a single program..?
>
> Thanks in advance for your reply.
>
> Have a Nice day..!
> Regards,
> Vadhimoo.

's Computer Specifications

Hi Vadhimoo,

Here's one way:

Sub test()
Dim i As Integer

For i = 1 To 25
Sheets("Sheet1").Copy after:=Sheets(Sheets.Count)
Next

End Sub

--
Hope that helps.

Vergel Adriano

"Vadhimoo" wrote:

> Dear All,
>
> I want to create more than 25 copy of the worksheet along with same data.
> Most of the time i used (Right click) the sheet-->Move or copy-->create copy.
> do the same 25 times.
> Is there any possible to cretae that much sheets in a single program..?
>
> Thanks in advance for your reply.
>
> Have a Nice day..!
> Regards,
> Vadhimoo.

's Computer Specifications

Dear Mike,Vergel

Thanks for your help, its working well.

"Mike H" wrote:

> You could try this way:-
>
> Sub copysheets()
> For copies = 1 To 25
> Sheets("Sheet1").Copy After:=Sheets(1)
> Next
> End Sub
>
> Alter the sheet name to suit
>
> Mike
>
> "Vadhimoo" wrote:
>
> > Dear All,
> >
> > I want to create more than 25 copy of the worksheet along with same data.
> > Most of the time i used (Right click) the sheet-->Move or copy-->create copy.
> > do the same 25 times.
> > Is there any possible to cretae that much sheets in a single program..?
> >
> > Thanks in advance for your reply.
> >
> > Have a Nice day..!
> > Regards,
> > Vadhimoo.

Thread Tools
Show Printable Version Email this Page
Rate This Thread
Rate This Thread:

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Re: 'Create a copy (of worksheet)' not working ?	Dave Peterson	Microsoft Excel Discussion	1	8th Feb 2010 10:01 PM
Macro to create a new worksheet that is a copy of an existing one?	=?Utf-8?B?S2FpIEN1bm5pbmdoYW0=?=	Microsoft Excel Programming	3	3rd Jul 2007 02:30 AM
create a macro to copy a worksheet into another	=?Utf-8?B?U2Vhbg==?=	Microsoft Excel Misc	7	18th Oct 2006 10:19 PM
Why does excel create a copy of the worksheet i open	=?Utf-8?B?UmVuZWU=?=	Microsoft Excel Misc	4	2nd Mar 2005 06:17 PM
Create Copy of Current Worksheet	Birdy92	Microsoft Excel Programming	1	14th Jan 2004 03:36 AM