Eis um exemplo simples de código que você pode usar:
Sub CommadButton1_click() Application.Quit End Sub
[ ]s