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