Create a copy - Worksheet

[Guest]

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.

 

[Guest]

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

 

[Guest]

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

 

[Guest]

Dear Mike,Vergel

Thanks for your help, its working well.