Hi Leon,

I don't know how to do it with VBA but you can do it by a cell in excel and you will put in your program
dim nbrofrow as integer
Range("a1").select
activecell.formulaR1C1="=count(B:B)" 'or countif(C:C,1,B:B)....
nbrofrow = range("a1").value
I hope this will help you...
Merry christmas
Benjamin