Solved: Force close

[Rejje]

Hi! How can I alter this macro so that Excel will not ask for saving YES/NO/CANCEL?

This should be a force close code for the workbook. In case it's the last open workbook; force close application. Any ideas someone?


[VBA]
Sub CloseNoSave()

Dim answer As VbMsgBoxResult
answer = MsgBox("Do you really want to quit without saving?", vbYesNo)

If answer = vbYes Then

If Workbooks.Count = 1 Then
Application.Quit
Else
ThisWorkbook.Close (False)
End If

End If

End Sub
[/VBA]

[Simon Lloyd]

Try this:[VBA]

Sub CloseNoSave()
If Workbooks.Count = 1 Then
Application.Quit
Else
ThisWorkbook.Close (False)
End If
End Sub

[/VBA]

[Rejje]

Hmm...

Code is exactly the same as mine (think I got it from you once). And problem still remains; Excel will still ask "Save? YES/NO/CANCEL" in case one has made any changes.

[Simon Lloyd]

The code is NOT exactly the same as yours, look closer , above Application.Quit add:
thisworkbook.saved=true

[Rejje]

Thanks a lot and I really appreciate all the support I get in this forum! Now it works!