go into the VBE and look in the project explore. Do you have code names
like

Sheet111111111111111111111111111

the maximum length is 31 or 32 I believe. This is a bug in Excel 97 when
you copy sheets.

Change the code name of the sheet you are copying to something like "A"

--
Regards,
Tom Ogilvy


"Jim" wrote in message ...
I wrote this macro to add a new page of data as necessary and then it
hides
the original. Initially I needed 50 pages, so I quick wrote a macro to
run
the following macro 50x.

Sub MakeSheet()
'


'
X = Worksheets.Count
Y = X - 3
Sheets("Blank").Visible = True
Sheets("Blank").Copy After:=Sheets(X)
Sheets("Blank (2)").Select
Sheets("Blank (2)").Name = Y
Sheets("Blank").Visible = False
Worksheets(X + 1).Activate
ActiveSheet.Unprotect
Range("A1") = Y
ActiveSheet.Protect

End Sub

It locks up excel after 20 or so times. So I manually ran the macro by
clicking a button each time. Again after 20 or 30 times Excel locks up.
Does
anyone know why?

Thanks, Jim