Copying text as a formula?
I have been able to automate composition of formulas, by concatenation and
other methods, as text strings. '=RC[-1] is a typical result. I am trying to
copy this resulting in a usable formula without success. I have developed
the following:
Sub Macro1()
'('=RC[-1] is previously entered in C1.)
Dim myFormula As Range
Dim myB1 As Range
Set myFormula = Range("C1")
Set myB1 = Range("B1")
myB1.FormulaR1C1 = myFormula
End Sub
The result in B1 is =RC[-1], both in the cell and the formula bar, but it
won't function as a formula until I manually click on the formula bar and
peck Enter.
I know I am missing something?
Thanks in advance
|