Quit Method Example

This example quits the application without saving any changes that were made since the previous Save or SaveAs commands were executed.

Private Sub QuitApp()
    Application.Quit
End Sub