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