Формула с двойными кавычками не работает в vba Chr(34)

Формулировка задачи:

Доброго времени суток. Есть необходимость в vba записать строку формулы

=ЕСЛИ(erc_all_vendors_20120202_10h16m!J3="Есть";5;0)

в ячейку

Sheets("Products").Range(range_string_copy) =

пишу таким образом

"=ЕСЛИ(erc_all_vendors_20120202_10h16m!" & "J" & first_count_Price & "=" & Chr(34) & "Есть" & Chr(34) & ";5;0) "

выдает ошибку связанную с использованием двойных кавычек. Так как если их закоментировать то все работает
Подскажите как быть.

Решение задачи: «Формула с двойными кавычками не работает в vba Chr(34)»

textual
                            Листинг программы 
                        
                            Sheets("Products").Range(range_string_copy).FormulaLocal="=ЕСЛИ(erc_all_vendors_20120202_10h16m!J" & first_count_Price & "=""Есть"";5;0)"