Select the cell containing the formula and run:

Sub document_it()
Set r = ActiveCell
v = r.Formula
v = Replace(v, "A1", Range("A1").Value)
v = Replace(v, "B1", Range("B1").Value)
r.Offset(1, 0).NumberFormat = "@"
r.Offset(1, 0).Value = v
End Sub
--
Gary''s Student - gsnu200832


"Todd Virlee" wrote:

If your spreadsheet looks like this

ValueA ValueB ValueC

where these cells are A1, A2, and A3.

If another row has a cell that has =(A1+A2), we want to have a macro that
would put a value in the cell below that displays =(ValueA+ValueB).