Exiting And Not Saving VBA Code

[Morrissey]

Sub Exit_Application()
'
' Exit_Application Macro
' This Will Exit The IFS InvoiceSystem
'

'
ActiveWorkbook.Close

End Sub

I Have This code what additions do I need to make it exit without prompting to save?

Please help!

 

[Dave Hawley]

Hi Morrisy

ActiveWorkbook.Close SaveChanges:=False

 

[Morrissey]

why thank you very much