How to use count in range of cells

[nieuws]

=count(B2:J10)

works in a macro, but how to use this function in VBA?
Hans

 

[JE McGimpsey]

One way:

Dim nResult As Long
nResult = Application.Count(Range("B2:J10"))

 

[nieuws]

It works! Thanks

Hans