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