Thread: Quit
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
solomon_monkey[_2_] solomon_monkey[_2_] is offline
external usenet poster
 
Posts: 17
Default Quit

OK- so here's my code

Sub quit()
'
'

result = MsgBox("Did you mean to press the 'QUIT' Button?", _
vbYesNoCancel, "QUIT")
If result = vbYes Then
GoTo continue1
Else
MsgBox "Cancelled", vbOKOnly, "QUIT"
GoTo exit1
End If

continue1:

Application.DisplayAlerts = False
Application.quit
Application.DisplayAlerts = True

exit1:

'
End Sub


Anyone know why it still asks me if I want to save changes?

Thanks