Microsoft Excel popup "Microsoft Excel has stopped working"

[Pinaceous]

Hi All,

I'm using an auto save feature to save a document prior to the user exiting.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  
On Error GoTo Error1


    MsgBox "AUTOSAVED !!"


    
    ActiveWorkbook.Save
    
    Application.AutoRecover.Enabled = False

    Application.Quit
        End
        
    Application.DisplayAlerts = False
    
    Exit Sub
    
    
Error1:
    Application.AutoRecover.Enabled = False
    Application.Quit
        End
        
    Application.DisplayAlerts = False
    
    Exit Sub
    
End Sub

Occasionally, Excel pops with its message of

Microsoft Excel has stopped working

.

Is there anyway to suppress &/or to disable this popup?

To add to the code that I have started?

Many Thanks,
Pinaceous

 

[ranman256]

Try putting

Application.DisplayAlerts = False
As the 1st line.
Cart before the horse, but if XL crashes, it may ignore your commands.

 

[Pinaceous]

Hey Ranman256,

I'll give it a go! Many thanks for your suggestion!

I remember that picture from running man.

Take care,
Paul