нужна помощь в поиске ошибки в коде VBA, написанном для решения СДУ

[kuv56]

Для решения системы из двух обыкновенных дифференциальных
уравнений методом Рунге-Кутта попытался воспользоваться готовой функцией, листинг которой на VBA, приведен в книге
"Числовые расчеты в Excel" (А.Н. Васильев).
При этом столкнулся с проблемой, суть которой в следующем:
Обращаясь к созданной функции РЕШИТЬСДУ в ячейках активного Лист1 для расчета значений функций системы - Y1 и Y2 
 в ячейках соответствующих столбцов вычисляется Y1 = Y2.
Понимаю, что, скорее всего, в опубликованном листинге ошибка, но вот как её исправить мне не понятно.
В этой связи буду признателен за помощь.
PS Файл к сообщению присоединил.

[kuv56]

Обращаясь к созданной функции РЕШИТЬСДУ в ячейках активного Лист1 для расчета значений функций системы - Y1 и Y2  
 в ячейках соответствующих столбцов вычисляется Y1 = Y2.

Разобрался сам. Ошибки в листинге нет! Сразу не обратил внимание на одну важную деталь.
Оказывается для ввода созданной функции РЕШИТЬСДУ в две выделенные ячейки необходимо было
на завершающем этапе нажать сочетание клавиш "Ctrl + Shift" <Enter>.
После этого в одной ячейке функции РЕШИТЬСДУ возвращается вычисленное  значение Y1, а в другой Y2.