Hi all

I have tried to get excel to disable the "x" button I have tries the
following code but it does not do what i want.

Private Sub UserForm_QueryClose _
(Cancel As Integer, CloseMode As Integer)
Dim wb As Workbook
'Prevents use of the Close button
If CloseMode = vbFormControlMenu Then
MsgBox "ARE YOU SURE YOU WISH TO QUIT? DO YOU WANT TO SAVE FIRST?",
vbYesNoCancel
If vbYes Then

For Each wb In Workbooks
wb.Save
Next wb
Application.Quit
End If
If vbNo Then
applcation.quit
End If
If vbCancel Then
Cancel = True

End If

End If
End Sub
What I am looking to do it have the message box ask the question, if yes is
pressed to save the workbook and close the application.
If no is pressed to quit the application and if cancel is pressed to return
to normal.

Thanks

Greg