Doesn't that just return 65536 every time?

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Shinya Koizumi" wrote in message
...
Dim app as Excel.Application

app.ActiveSheet.Rows.Count

worked for me

thanks

Shinya