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.