Well...<g
If you remove Option Explicit from your module then
"FinalRow = ActiveSheet.Range("A65536").End(xlUp).Row" will work and
the Dim statement is not required.
Of course, you will never want to let anybody see your code.<g
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"mpeplow"
wrote in message

Is there any way to put this in one statement?
Dim FinalRow As Variant
FinalRow = ActiveSheet.Range("A65536").End(xlUp).Row
--
mpeplow