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.