Adding Numbers

[mikesr20]

I need a code that will add 1 to the number that is already in a cell

[duane]

cells(i,j).value = cells(i,j).value +1

[Dave Peterson]

dim myCell as range
set mycell = activesheet.range("a1")
if isnumeric(mycell.value) then
mycell.value = mycell.value + 1
end if

mikesr20 wrote:
>
> I need a code that will add 1 to the number that is already in a cell
>
> --
> mikesr20
> ------------------------------------------------------------------------
> mikesr20's Profile: http://www.excelforum.com/member.php...o&userid=29959
> View this thread: http://www.excelforum.com/showthread...hreadid=498178

--

Dave Peterson