Dim xlApp As Object
Set xlApp = GetObject(, "excel.application") xlApp.Quit
set XlApp = nothing
' Fecha a aplicação MS Excel.
Application.DisplayAlerts = FalseActiveworkbook.close ([VBYes]) ' Fecha o Workbook e salva as mudanças efetuadas.
Application.DisplayAlerts = True
