Запуск отчета в макросе

Помогите, есть операции в макросе:
  Set ParVal = NewDoc.Properties("DOCPARAMS").AsIDispatch
   If  Not ParVal Is Nothing Then
      Set Reports = ParVal.Reports( True )
      If Reports.Locate( "NAME","Caeac ia i?iaeoe?iaaiea OI" ,0) Then
         DateTime = Mid(Replace(Replace(CDate(Now),".","",1),":","",1),1,12)
         Call Reports.ExecuteReport()
       Else
         Do While Reports.Properties("NAME").DisplayText<>"Caeac ia i?iaeoe?iaaiea OI"
            If Reports.ShowModal("Noi?ie?oeoa aeaie caeaca ia OI...")<>0 Then
               DateTime = Mid(Replace(Replace(CDate(Now),".","",1),":","",1),1,12)
               Call Reports.ExecuteReport()
            End If
         Loop
      End If
      Dim Results(),Result
      Call ZakazForCTO.FindFile("C:\TCS_TEMP", "Template_"+DateTime+"*.xls", Results)
      If  UBound(Results) = 0 Then
         Call ZakazForCTO.FindFile("D:\TCS_TEMP", "Template_"+DateTime+"*.xls", Results)
      End If
      Set File = NewDoc.Properties("FILES").AsIDispatch
      For Each Result In Results
          Result = Results(UBound(Results))
          If Result <> "" Then
            Set FSO = CreateObject("Scripting.FileSystemObject")
            FSO.DeleteFile "C:\TCS_TEMP\"+"Caeac e "+TCS_KN+".xls", 1
            FSO.CopyFile Result, "C:\TCS_TEMP\"+"Caeac e "+TCS_KN+".xls", 0
            Set FSO = Nothing
            If Not FILE Is Nothing Then
              Call FILE.AddFileEx("C:\TCS_TEMP\"+"Caeac e "+TCS_KN+".xls", 3, -1)
            End If
            Exit For
          End If
      Next
      Set FILE = Nothing
   End If
   Reports.UserModuleName = Reports.UniqueUserModuleName
   Call TCSApp.DeleteModuleByUserModuleName(Reports.UserModuleName)
   Set Reports = Nothing
   Set ParVal = Nothing
   Set ShellAPI = CreateObject("WScript.Shell")
   On Error Resume Next
   ShellAPI.Run "Cmd /x/c taskkill /f /im Excel.exe", vbHide
   Set ShellAPI = Nothing

При первом запуске все отрабатывается правильно.
Но при 2 запуске зависает на Call Reports.ExecuteReport()
При чем сам отчет формируется и выводит сообщение о его завершении. Нажимаю ок , и все висим.

Где моя ошибка.