Sub LastRow()
Set ex = GetObject(, "excel.application")


ex.worksheets("Sheet5").Activate

LR = ex.Range("A65536").End(xlup).Row

set ex = nothing

End Sub

When I run this sub I get object define or applicaiton define error
when the code executes LR = ex.Range("A65536").End(xlup).Row line.

Any help is really appreciated.

Thanks

Sonu