Create a copy - Worksheet
 

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.

Create a copy - Worksheet
 

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.

Create a copy - Worksheet
 

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.

Create a copy - Worksheet
 

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.