I would probably use something like
fbr=range("a1").end(xldown).row
nbr=cells(fbr,1).end(xldown.row
nrs=nbr-fbr
fbr=nbr


--
Don Guillett
SalesAid Software

"CLamar" wrote in message
...
I am trying to count the number of rows between empty rows (excluding the
heading). My data is setup like this in the worksheet. Can anyone suggest
a
method to do this in VBA?

heading1 heading2 heading3
1 1 1
2 2 2
3 3 3

heading1 heading2 heading3
4 4 4
5 5 5
6 6 6