Excel.Application - эммулировать результат - VB

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

Доброго дня !
Имею Excel
Range("A1").FormulaR1C1 = "='C:\WORK\[a.xls]Лист1'!$A$1"
Конкретное значение получаю ТОЛЬКО при присвоении в ячейку листа
Хочу писать значение в переменную
A = "='C:\WORK\[a.xls]Лист1'!$A$1"
Прием Application.Evaluate("='C:\WORK\[a.xls]Лист1'!$A$1"), работает если книга
c:\WORK\a1.xls - предварительно открыта.
Какие есть еще способы подскажите пожалуйста
Заранее благодарен !

Решение задачи: «Excel.Application - эммулировать результат»

textual
                            Листинг программы 
                        
                            All references must be given as R1C1 strings