Sub MACRO_GRABAR_SALIR
X = MsgBox("�Esta seguro que desea grabar y salir?", vbYesNo + vbQuestion,
"Aviso!!!")
If X = vbYes Then
'Graba todos los cambios en la BD
ActiveWorkbook.Save
'Finaliza o Cierra la BD
Application.Quit
End If
End Sub
-----------------------------------------------------------------------------------
--------------------------