Maybe activecell.formular1c1 would work.

shternm wrote:

Please help I am not sure why .Value does not work for me.

Do While ActiveCell.Offset(0, 1).Value < Empty
ActiveCell*.Value* = "=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])"
ActiveCell.Offset(1, 0).Select
Loop

--
shternm
------------------------------------------------------------------------
shternm's Profile: http://www.excelforum.com/member.php...nfo&userid=858
View this thread: http://www.excelforum.com/showthread...hreadid=486065

--

Dave Peterson