I have used a for loop to generate new worksheets by the following statments:

For i = 1 To InputCaseNum
Worksheets(EnvTemplate(i)).Copy after:=Worksheets
Next i

I have got the following error message if the number of new worksheets
generated exceeds 30:

Run-tim error '1004':
Copy method of Workshet class failed

How can I resolve this problem?

Hi Dennis

See

Copying Worksheet Programmatically Causes Run-Time Error 1004
http://support.microsoft.com/default...84&Product=xlw

--
Regards Ron de Bruin
http://www.rondebruin.nl



"Dennis Mak" <Dennis wrote in message ...
I have used a for loop to generate new worksheets by the following statments:

For i = 1 To InputCaseNum
Worksheets(EnvTemplate(i)).Copy after:=Worksheets
Next i

I have got the following error message if the number of new worksheets
generated exceeds 30:

Run-tim error '1004':
Copy method of Workshet class failed

How can I resolve this problem?