Try this

Dim last as integer, next as integer

Sub findRow()

last = application.worksheetfunction.counta(RAnge("A:A"))
next= last + 1
and the rest of your code here..
End sub

Regards
Peter
-----Original Message-----
Say i have

Dim Current
Dim Last

and i had a cell with a number, how do i set Current to
be equal that
that value. isnt it:-

Current = Range("H1")

or am i just being a noob

Thanks


---
Message posted from http://www.ExcelForum.com/

.