Option Explicit
Sub TacheExcel()
Dim xlApp
Dim xlWb
Set xlApp = CreateObject("Excel.Application")
On Error Resume Next
xlApp.DisplayAlerts = False
Set xlWb = xlApp.Workbooks.Open("x:\xxx\xxx.xls")
xlApp.Run "Macro1"
xlWb.Close True
xlApp.Quit
Set xlWb = Nothing
Set xlApp = Nothing
End Sub