I don't understand why you need to store the formula as text? If it is a formula you change often you can store it in the cell as a formula and then copy the formula over to sheet 1 something like this:

[VBA]
Sub Copy_Formula()
Sheets("Sheet2").Range("A1").Copy
Sheets("Sheet1").Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormulas
End Sub

[/VBA]