To find the last row in a column you can use something like this.

Code:
--------------------

Dim LastRow As Long

LastRow= Range("A65536").End(xlUp).Row

--------------------

This should return the last row of data in column A.

LastRow can then be used in the rest of your code.


--
Norie
------------------------------------------------------------------------
Norie's Profile: http://www.excelforum.com/member.php...o&userid=19362
View this thread: http://www.excelforum.com/showthread...hreadid=379694