Contador de Registros Query Macro

[alvtho]

Hola....tengo el siguiente código que me devuleve elresultado de un query a una hoja de planilla excel....todo bien hasta acá, pero mi consulta es como es posible determinar el numero de registros devueltos por el query, ya que debo controlar que no sean mas de 65536 registros que permite excel 2003. De antemano gracias por las respuestas. Aqui va el código:

With ActiveSheet.QueryTables.Add(Connection:=conexion _
, Destination:=Range(Celda) _
, Sql:=vsql)
'.Name = "Consultando ..."
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
'.Refresh BackgroundQuery:=True

End With