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

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

Do you mean change the sheet name? It is named Blank now. Or are you talking
about the code name in the project explore. It says Sheet2111(Blank) +
others like Sheet211110(10).
How do I do that? Thanks for your help!!


"Tom Ogilvy" wrote in message
...
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

Sheet211110(10)
codename Sheet211110
tab name 10

go into the vbe and click on

Sheet211110(10)
hit F4 to see the properties window.

Change the (name) property, the first property.

However, this would only be necessary if you are getting codenames that are
approach 30 characters. The one you show shouldn't be a problem, so
perhaps it is a different problem.

--
Regards,
Tom Ogilvy

"Jim" wrote in message ...
Do you mean change the sheet name? It is named Blank now. Or are you
talking
about the code name in the project explore. It says Sheet2111(Blank) +
others like Sheet211110(10).
How do I do that? Thanks for your help!!


"Tom Ogilvy" wrote in message
...
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