FECHANDO O MS EXCEL
O simples, neste caso,é perfeito. Atende, resolve e nos livra da dor de cabeça e perda de tempo desnecessária.
Dim xlApp As Object
Set xlApp = GetObject(, "excel.application")
xlApp.Quit
set XlApp = nothing
' Fecha a aplicação MS Excel.
Application.DisplayAlerts = False
Activeworkbook.close ([VBYes])
Application.DisplayAlerts = True
' Fecha o Workbook e salva as mudanças efetuadas.
Fonte: Experts-Exchange
André Luiz Bernardes
A&A® - Work smart, not hard.
Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor avise imediatamente o remetente, respondendo o e-mail e em seguida apague-o. Agradecemos sua cooperação.
