You need to have a blank cell to the right of the number you are adding
to, then select that blank cell hit the combined button assigned to
macro below.

Sub PlusOne()

ActiveCell.FormulaR1C1 = "=RC[-1]+1"

End Sub


--
comotoman
------------------------------------------------------------------------
comotoman's Profile: http://www.excelforum.com/member.php...o&userid=27292
View this thread: http://www.excelforum.com/showthread...hreadid=478309