VBA crashes Excel
 

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

VBA crashes Excel
 

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

VBA crashes Excel
 

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

VBA crashes Excel
 

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

VBA crashes Excel
 

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