Как при запуске из VB Excel активизировать макрос? СРОЧНО

[MOV]

Dim xApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xls As Excel.Worksheet

If Dir$(CurDir$ + "\tt.xls") <> "" Then
Set xApp = New Excel.Application
Set xlWB = xApp.Workbooks.Open(CurDir$ + "\tt.xls")
xApp.Visible = True
до этого места все работает, но при открытии докумета макрос не запускается, а, если открыть этот же документ просто Excel, то он запускается (макрос)
Else

[GSerg]

xapp.run "macro_name"