Visual Basic - Registros

Hola tengo este codigo:

Set xlApp = CreateObject("Excel.Application")
vlRuta = pathLISTAS & "\" & flLM.FileName & ""
xlApp.Workbooks.Open vlRuta
Set mySheet = xlApp.Worksheets(1)

With mySheet
Do While .Cells(vRen, cCol) <> ""
rsDatos.AddNew

Loop
End With

Con este codigo yo leo una tabla de excel y la cargo a un grid, pero necesito saber como puedo hacerle para saber la cantidad de registro que trae esa hoja de excel para poner un Scrol para ver el avance de garga porque se tarda un buen, son hojas que tiene hasta 1500 Renglones en 50 columnas

Ojala que alguien ya lo haya hecho y me ayude.

Gracias.

Un tiro a ciegas... has probado a ver si existe la propiedad Count en .Cells? o size? y en mySheet?
Otra ayuda que puede servirte de referencia es el tamaño del archivo, que eso si lo puedes obtener, y calcular a partir de lo leido.
Espero que sirva de algo.