Try:

With ActiveCell
.FormulaR1C1 = "=If(R[0]C[1]<R[0]C[2],R[0]C[1]&""""&" _
& "R[0]C[2],R[0]C[2]&"" ""&R[0]C[2])"
.Value = .Value
End With

Hope this helps
Rowan

shternm wrote:
That doesn't work either.

Just so I am making myself clear: I don't want to see the formula in
the cell just a result (value).