Hi,

The following seemingly innocent routines sometimes crashes excel with one
of those "Send Report" messages. This persists every time Excel is
restarted. Sometimes rebooting the machine helps.

"My Template" is a legitimate hidden worksheet.


Sub gNewSheet()
Dim desiredName As String

desiredName = InputBox("Enter the new portfolio name:", "Sheet Name")

If (desiredName = "") Then
Exit Sub
End If

Sheets("My Template").Copy After:=ActiveSheet
ActiveSheet.Name = Left(desiredName, 31)
ActiveSheet.Range("Response") = ""
ActiveSheet.Range("NameCell") = desiredName

ActiveSheet.Visible = True
End Sub


Many Thanks!

Bura

Bura

I tried your code on my machine, and the good/bad news is that it all works
perfectly!

I wish I could get it to crash for you. Have you tried your code on another
PC?

Geoff




"Bura Tino" wrote in message
news:mAghb.74715$%h1.62162@sccrnsc02...
Hi,

The following seemingly innocent routines sometimes crashes excel with one
of those "Send Report" messages. This persists every time Excel is
restarted. Sometimes rebooting the machine helps.

"My Template" is a legitimate hidden worksheet.


Sub gNewSheet()
Dim desiredName As String

desiredName = InputBox("Enter the new portfolio name:", "Sheet Name")

If (desiredName = "") Then
Exit Sub
End If

Sheets("My Template").Copy After:=ActiveSheet
ActiveSheet.Name = Left(desiredName, 31)
ActiveSheet.Range("Response") = ""
ActiveSheet.Range("NameCell") = desiredName

ActiveSheet.Visible = True
End Sub


Many Thanks!

Bura

Bura - It gets worse! I just added nearly 200 worksheets using your macro,
and it all worked perfectly.

Geoff




"Bura Tino" wrote in message
news:mAghb.74715$%h1.62162@sccrnsc02...
Hi,

The following seemingly innocent routines sometimes crashes excel with one
of those "Send Report" messages. This persists every time Excel is
restarted. Sometimes rebooting the machine helps.

"My Template" is a legitimate hidden worksheet.


Sub gNewSheet()
Dim desiredName As String

desiredName = InputBox("Enter the new portfolio name:", "Sheet Name")

If (desiredName = "") Then
Exit Sub
End If

Sheets("My Template").Copy After:=ActiveSheet
ActiveSheet.Name = Left(desiredName, 31)
ActiveSheet.Range("Response") = ""
ActiveSheet.Range("NameCell") = desiredName

ActiveSheet.Visible = True
End Sub


Many Thanks!

Bura

Bura,

I see no code to check for invalid characters in the sheet name.
[ ] : / \ * ? are not accepted by Excel in sheet names.
I don't know if entering these characters would crash Excel, but it sure
would cause problems.

Regards,

Jim Cone
San Francisco, CA
*******************
"Bura Tino" wrote in message
news:mAghb.74715$%h1.62162@sccrnsc02...
Hi,
The following seemingly innocent routines sometimes crashes excel with one
of those "Send Report" messages. This persists every time Excel is
restarted. Sometimes rebooting the machine helps.
"My Template" is a legitimate hidden worksheet.
Sub gNewSheet()
Dim desiredName As String
desiredName = InputBox("Enter the new portfolio name:", "Sheet Name")
If (desiredName = "") Then
Exit Sub
End If
Sheets("My Template").Copy After:=ActiveSheet
ActiveSheet.Name = Left(desiredName, 31)
ActiveSheet.Range("Response") = ""
ActiveSheet.Range("NameCell") = desiredName
ActiveSheet.Visible = True
End Sub
Many Thanks!
Bura

Thank you all for replying. Sorry for the delay. (I've had a proposal
due today and have been doing nothing but that.)

Yes, it is still a mystery. It doesn't crash every time. But sometime,
and this happens _all_ of our machines it starts crashing. It does it
consistently, for all sheet names, under all circumstances - until it
magically stops. I think a reboot helps. Next time it happens I'll
capture the stack and post it (I have no idea what it means...)

Thanks again.

Bura