OK, try CountIf then...
[VBA]
RowRangeCount = WorksheetFunction.CountIf(RowRange, ">0")
[/VBA]