Определить количество строк в диапазоне

Function ListRowCount(ByVal FirstCellName as String) as Long
    With thisworkbook.Names(FirstCellName).RefersToRange
        If isempty(.Offset(1,0).value) Then 
            ListRowCount = 1
        Else
            ListRowCount = .End(xlDown).row - .row + 1
        End If
    End With
End Function
Но если вы чертовски уверены, что excel-macro в списке ничего нет, то просто ms-excel thisworkbook.Names(FirstCellName).RefersToRange.CurrentRegion.rows.count