OK,

The story is I have a macro, ( attached below), to create and rename sheets.
It works but it will not create more than 28 sheets, it starts creating
quite fast and then gets slower.

Last night when it stopped at sheet 28 i tried to add sheets manually and I
could not. This morning I can add them manually. The macro will still not
create more than 28.

When i say i could not add more sheets - i right click on the sheet, select
move/copy and create a copy - but nothing happens, the egg timer appears as
normal but no new sheet, there is no message or anything to warn of an issue.

Macro is two stages (delete sheets, except 1, then i make modifs to 1 then
copy it 30 times). The delete works fine but not the create.

Any ideas?

Sub Delete2to31()
Sheets("1").Select
Application.DisplayAlerts = False
On Error Resume Next
For x = 2 To 31
Sheets(CStr(x)).Delete
Next
Application.DisplayAlerts = True

End Sub

Sub CreateSheets()

Sheets("1").Select
Application.DisplayAlerts = False
On Error Resume Next
For x = 2 To 31
Sheets("1").Copy After:=ActiveSheet
Sheets("1 (2)").Name = CStr(x)
Next

End Sub

"Jim Thomlinson" wrote:

You need to define... "it will not let me". Exactly what does it say or do
when you try to copy the 28th sheet?
--
HTH...

Jim Thomlinson


"LiAD" wrote:

Hi,

I have a file with a series of worksheets which i need to copy to have 33 in
total. There is a list of 40 formulas which index through another folder
stored in the same directory to find one value for each sheet. This master
data sheet is used to drive a lot of other sheets.

When i try to copy the sheets it will not let me create more than 27. I
need 33.

The file size with the 27 sheets is 3.5MB so its not huge.

How can i get round this?

thanks
LiAD