КАК закрыть экземпляр Excel, запущенный слиянием почты

этот код, работающий внутри лаунчера, не имеет доступа к Excel, работающему через DDE ??

'For i = 1 To Workbooks.Count
'   MsgBox ("here" + Workbooks(i).Name)
'If (Workbooks(i).Name  ActiveWorkbook.Name) Then
'Workbooks(i).Close
'End If
'Next i