[Resolvido]Access e Excel

Pessoal

Estou usando a função abaixo para exportar uma tabela para o excel, em seguinte executar uma macro dentro do proprio excel, porem quando o excel fecha está aparecendo a mensagem para salvar, e eu gostaria que salvasse automatico, sem ficar perguntando..

alguem sabe como posso fazer?

segue abaixo o codigo:

Dim xlapp As New Excel.Application
xlapp.Workbooks.Open "C:\ferramentas\critica caracteristicas\Relatorios Criticidades.xls"
'Executa a macro no excel
xlapp.Run "Relatorio"
xlapp.Workbooks.Close
Set xlapp = Nothing

teste;

Dim xlapp As New Excel.Application
Xlapp.DisplayAlerts = False
xlapp.Workbooks.Open "C:\ferramentas\critica caracteristicas\Relatorios Criticidades.xls"
'Executa a macro no excel
xlapp.Run "Relatorio"
On Error Resume Next
xlapp.save
xlapp.Workbooks.Close SaveChanges:=True
Set xlapp = Nothing
xlapp.Application.Quit

Deu Certo JPaulo

Obrigado mais uma vez!!

Valew amigo.