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