Is there any way to put this in one statement?

Dim FinalRow As Variant
FinalRow = ActiveSheet.Range("A65536").End(xlUp).Row


--
mpeplow
------------------------------------------------------------------------
mpeplow's Profile: http://www.excelforum.com/member.php...o&userid=34812
View this thread: http://www.excelforum.com/showthread...hreadid=562555