VBA how many rows in Excel

excel-row-count-vba.vba

Public Function HowManyRows(sheetName As String) As Integer
 
    'Find out how many row there are
 
    Dim i As Integer
    Sheets(sheetName).Select
    Range("A1").Select
   
    Do
        ActiveCell.Offset(1, 0).Select
    Loop Until ActiveCell.FormulaR1C1 = ""
   
    'Move up one row so we know where the last row of data is
    ActiveCell.Offset(-1, 0).Select
   
    Dim totalRows As Integer
    totalRows = ActiveCell.Row ' do NOT subtract one for the header
   
    HowManyRows = totalRows
   
End Function