<p>I know the range name of the start of a list - <code>1</code> column wide and <code>x</code> rows deep.</p>

<p>How do I calculate <code>x</code>?</p>

<p>There is more data in the column than just this list. However, this list is contiguous - there is nothing in any of the cells above or below or either side beside it.</p>

```
```
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
```
```
But if you are damn sure there's nothing around the list, then just
```
thisworkbook.Names(FirstCellName).RefersToRange.CurrentRegion.rows.count
```