Count of non-blank cells.

[EWill]

I am trying to get a count of non-blank cells so that I can use it as
an input to a range. I have tried the following but it only counts
the cells when I manually type something in the cell, not when I copy.

Set myRange = Range("A1.A65536")
myCount = Application.Count(myRange)

Please advise,

 

[Ron de Bruin]

Hi EWill

Use the Function Counta to count the cells that are not empty