Sub Test()
Selection.Formula = "=3+" & ActiveCell.Offset(-1, 0).Address
End Sub
--
Excelenator
------------------------------------------------------------------------
Excelenator's Profile:
http://www.excelforum.com/member.php...o&userid=36768
View this thread:
http://www.excelforum.com/showthread...hreadid=568020