counta in vba

[lawlera]

I have been trying to assign a value to x derived from the counta function.

I have tried:
dim x as integer
x = Application.CountA("A:A")
Range("b2").Value = x

but it seems to perpetually report the value of 1.

Appreciate any help.

 

[Ron de Bruin]

Use this lawlera

x = Application.CountA(Range("A:A"))