Экранирование кавычек

[MiXOH]

Привет всем.

Необходимо в ячейку excel вставить формулу =ЕСЛИ(Name!B2<>"";Name!B2;"")

Пишу так ActiveCell.Formula = "=ЕСЛИ(Name!B2<>"";Name!B2;"")" - вставляет =ЕСЛИ(Name!B2<>";Name!B2;"), т.е. только одну ковычку.

Пробовал так ActiveCell.Formula = "=ЕСЛИ(Name!B2<>"""";Name!B2;"""")" - выдает ошибку во время выполнения.

Помогите плиз.

 

[Tanya]

ActiveCell.Formula = "=ЕСЛИ(Name!B2<>" + chr(34) + chr(34) + ";Name!B2;" + chr(34) + chr(34) + ")"
я предпочитаю так, потомучто всегда можно отследить количество и расположение кавычек в строке

 

[MiXOH]

при выполнении макроса выдает ошибку "Application-defined or object-defined error"

Спасибо большое за помощь.
Все заработало.
Вместо Formula использую FormulaLocal и все ОК.