Hi
Attached is a procedure I wrote to close excel when a certain criteria was
not met. However I still get the default message box "Save changes". I want
the procedure to select the 'Don't Save' option and then Quit Excel. Any help
would be welcome.

Private Sub OptionButton6_Click()
Dim Response As String
Dim msg As String
Dim Style As String

msg = "Financial Support (Level 2 as in Studybank Guidelined) is not
available to you. Do you want to apply for Study Leave Only(Level One
Support)?"
Style = vbYesNo
Response = MsgBox(msg, Style)
If Response = vbNo Then
MsgBox "You will be logged out"
ActiveWorkbook.Close savechanges:=False
Application.Quit
Else
Range("b10.j10").Select
Endif
Endsub