Range.ListHeaderRows (Excel)

Retorna o número de linhas de cabeçalho do intervalo especificado. Long somente leitura.

Antes de usar essa propriedade, use a propriedade CurrentRegion para localizar os limites do intervalo.

Dim lngListHeaderRows As Long
lngListHeaderRows = ActiveCell.ListHeaderRows