End command not working
I am trying to run this from power point
sonu wrote:
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
|