Делаю экспорт данных в шаблон Excel, возникла необходимость добавить в строки с кодами объектов названия объектов, но как примечание. Сварганил код приведённый ниже. Во время исполнения выкидывает окно: Заголовок - название файла, пиктограмма жёлтого треугольника с восклицательным знаком, чуть дальше цифрой 400 и кнопка Ok. Прогнал этот участок пошагово, заметил что срабатывает на разных участках кода. Кто подскажет, что за фигня творится?

Set qdf = CurrentDb.QueryDefs("qrySAPNumberObject")
Set rs = qdf.OpenRecordset
   For i = 1 To rs.RecordCount
      rs.MoveFirst
      For j = 1 To rs.RecordCount
         If objWindow.ActiveSheet.Range(Cells(2 + i, 1), Cells(2 + i, 1)).Value = rs.Fields("SAP_Number") Then
            objWindow.ActiveSheet.Range(Cells(2 + i, 1), Cells(2 + i, 1)).AddComment
            objWindow.ActiveSheet.Range(Cells(2 + i, 1), Cells(2 + i, 1)).Comment.Text Text:=rs.Fields("Object_Name")
         End If
      rs.MoveNext
      Next j
   Next i

http://www.sql.ru/forum/1252525/oshibka-400