One way:

With Range("C14")
.FormulaR1C1 = "=" & IIf(IsEmpty(.Value), "", .Value & "+") & _
"Sheet1!R[-2]C[6]+Sheet2!R[5]C[2]+Sheet3!R[58]C[24]"
End With





In article ,
Hywel wrote:

I am using a userform to select the data I need in certain cells.
However, if there is existing information I want to add the following
and not overwrite.

Range("C14").Select
ActiveCell.FormulaR1C1 = _
"=Sheet1!R[-2]C[6]+Sheet2!R[5]C[2]+Sheet3!R[58]C[24]"

Could anyone help,
Thanks
Hywel