This might do it.

LR = ex.Worksheets(5).Range("A65536").End(xlUp).Row

"sonu" wrote:

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