Dim xlApp
Dim xlBook
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\BAK\Test.xlsm", 0, True)

xlApp.Run "TestOutter"
xlBook.Close
xlApp.Quit


Set xlBook = Nothing
Set xlApp = Nothing

WScript.Quit