Ah Haaa...........Thank you kind Sir, that did the trick............

Vaya con Dios,
Chuck, CABGx3


"Tom Ogilvy" wrote in message
...
Application.Goto Reference:="R8C1"
Selection.End(xlDown)
Selection.offset(1,0).Value = selection.Value + 1

--
Regards,
Tom Ogilvy

CLR wrote in message
...
Hi All..........

I know how to go to the bottom cell in column A.........what I want to
do
is
take the number that is in that cell and add one to it and place that
value
in the cell immediately below it............help please?

Application.Goto Reference:="R8C1"
Selection.End(xlDown)

.............now what?

Vaya con Dios,
Chuck, CABGx3