I have a workbook containing 5 sheets. Im trying to make 50 copies of
"sheet1" but i get a error message after 40 copies are created saying "Copy
method of Worksheet failed". I have 2 formulas and some text in the worksheet
Im trying to copy. If I remove my formulas I can make 47 copies before I get
the same error. If I try this on a blank worksheet it works fine. Any help on
this is appreciated. Sample of my code below....


Sub test()
Dim i As Integer
i = 0

While i < 50

Worksheets("sheet1").Copy After:=Worksheets("sheet1")
i = i + 1
Wend

End Sub