В общем цель такая. Часто приходиться писать формулы в Excel, которые в текущий момент выдают ошибку #Знач, #Дел0 (т.к. используются данные, которых еще нет).
Поэтому пишется такая формула =Если(еошибка(С5/С6);"";С5/С6), т.е. в случае ошибки ничего не выдаст, а если все в порядке - то посчитает.

Суть в том, что каждый раз писать такую длинную формулы лень, а есть формула, которая считает, т.е. С5/С6.
Хочется иметь макрос, который посмотрит в ячейку, возьмет тамошнюю формулу, всунет ее в формулу с ЕСЛИ и вставит уже полную формулу (с Если) в эту ячейку.

Теперь проблема:
Пишу следующий макрос

Sub Макрос1()

' Берем формулу текущей ячейки и отрезаем у нее знак "=" слева.
cont = Right(ActiveCell.Formula, Len(ActiveCell.Formula) - 1)

' Вставляем в новую формулу. Chr(34) это кавычки.
newcont = Chr(34) & "=если(еошибка(" & cont & ");" & Chr(34) & Chr(34) & ";" & cont & ")" & Chr(34)

' удаляем старую формулу
ActiveCell.ClearContents

' вставляем новую формулу
ActiveCell.Formula = newcont

End Sub

Вылетает на строчке выделенной красным цветом.
Причем если формулу указать явным образом и выкинуть всякие ЕСЛИ, то работает. ПРобовал менять Если на IF, тоже не работает. Выдает ошибку Application or Object defined error.

В чем дело?