Salve a tutti

Devo leggere da VB6 un foglio di Excel.
Per ciò che riguarda la lettura delle celle non ho nessun problema.
Però ho la necessità di contare le RIGHE presenti nel foglio; ora, io ho 41 righe nel foglio ma quando vado a contarle mi restituisce 462...
quindi la domanda è: come faccio a leggere il numero di righe "effettive"? (riga di codice in grassetto)
ecco il codice:
codice:
Dim exApp As Excel.Application
Dim exWb As Excel.Workbook
Dim exWs As Excel.Worksheet
Dim numRighe As Integer
Dim indRiga As Integer

'apre excel
Set exApp = New Excel.Application
exApp.Visible = True

'apre il file xls
strPerc = "C:\...\prova.xls"
Set exWb = exApp.Workbooks.Open(strPerc)

'seleziona il foglio 1
Set exWs = exWb.Worksheets(1)

'conta il numero di righe
numRighe = exWs.Rows.CurrentRegion.Count

For indRiga = 2 To numRighe
    'leggo il contenuto delle celle
Next indRiga

'salva e chiude file
exWb.Save
exWb.Close
'esce da excel
exApp.Application.Quit
'cancella le variabili oggetto
Set exApp = Nothing
Set exWb = Nothing
Set exWs = Nothing
Grazie a tutti