Sub FindLastCell()
Dim cell as Range

set cell = Activesheet.Range("A1").end(xldown)

end sub


--
jtp
------------------------------------------------------------------------
jtp's Profile: http://www.excelforum.com/member.php...o&userid=21132
View this thread: http://www.excelforum.com/showthread...hreadid=562712