Ошибка в открытии макроса

[ZHDN]

begin
 if OpenDialog1.Execute then
 begin
  Path:=OpenDialog1.FileName;
   end;
   if Path='' then
      begin ShowMessage('Файл не выбран');
            abort;
            end
            else
   E := CreateOleObject('Excel.Application');
   B := E.Workbooks.Open[path];
   E.Visible := True;
   i := E.VBE.ActiveVBProject.VBComponents.Count;
   E.VBE.ActiveVBProject.VBComponents.Add( 1 );
   B.VBProject.VBComponents.Import( 'C:\Kotel.bas' );
   E.Application.Run( 'Kotel' );
   E.Visible := True;
   B := E.ActiveWorkBook.Sheets;
   B.Item[2].Activate;
   OpenDialog1.Free;
   E:=unassigned;
end;

Выдает ошибку: Не удается выполнить макрос Kotel. Возможно он отсутствует в текущей книги либо все макросы отключены.

У меня доступ к макросам включен. И Макрос присутствует в текущей книге веть он туда импортируется. Подскажите как справится с данной проблемой.

[Казанский]

Должно работать. Kotel - имя процедуры? ( Sub Kotel() )
Это лишние команды:

   i := E.VBE.ActiveVBProject.VBComponents.Count;
   E.VBE.ActiveVBProject.VBComponents.Add( 1 );

Файл загружается в отдельный модуль, так что созданный модуль остается пустым.

[ZHDN]

Вот кусок макроса:

Attribute VB_Name = "Kotel"
Public Sub Кotel()
Attribute Кotel.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Кotel Макрос
'
    Range("C4:P9000").Select
    With Selection
        .NumberFormat = "General"
        .FormulaLocal = .Value
    End With
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp
.
.
.

Не работает выдает ошибку =((((

[ZHDN]

Нащел ошибку Sub Кotel какие то буквы по руски какие то по латински вот и на отрабатывало