Проблема с текстовой функцией

[Серега]

Задача:
Требуется что бы макрос в Excel вставлял в ячейку формулу следующего вида
=ПСТР(RC[-2];ПОИСК(" N ";RC[-2];1)+3;ПОИСК(" ";RC[-2];ПОИСК(" N ";RC[-2];1)+3)-ПОИСК(" N ";RC[-2];1)-3)

когда пишешь
...Formula="=ПСТР(RC[-2];ПОИСК( " N ";RC[-2];1)+3;ПОИСК(" ";RC[-2];ПОИСК(" N ";RC[-2];1)+3)-ПОИСК(" N ";RC[-2];1)-3)"

Отладчик вторую " (т.е. начало выраженя " N ") считает окончанием формулы и начинает ругаться.
Пробовал убирать " внутри формулы - не получается

Помогите.

[RayShade]

А кавычки в формуле удвоить в таком случае не пробовал?

[Cyrax]

а еще лучше заменить их на Chr$(34), т.е.

Код: Выделить всё

...Formula="=ПСТР(RC[-2];ПОИСК( " & Chr$(34) & " N " & Chr$(34) & ";RC[-2];1)+3;ПОИСК(" & Chr$(34) & " " & Chr$(34) & ";RC[-2];ПОИСК(" & Chr$(34) & " N " & Chr$(34) & ";RC[-2];1)+3)-ПОИСК(" & Chr$(34) & " N " & Chr$(34) & ";RC[-2];1)-3)"

[Серега]

Написал
Workbooks("Книга1.xls").Worksheets("Лист1").Cells(Old, 10).Formula = "=MID(RC[-2];SEARCH("" N "";RC[-2];1)+3;SEARCH("" "";RC[-2];SEARCH("" N "";RC[-2];1)+3)-SEARCH("" N "";RC[-2];1)-3)"

Все равно не пашет
Говорит "Ошибка определяемая приложением или объектом
Не пойму в чем проблема?

пробовал и ПОИСК( " & chr$(34) & " N " & chr$(34) & ";....
тоже не идёт