CountIf non-blank cells

[YasserKhalil]

Hello everyone
I am trying to use this line

Code: Select all

Debug.Print Application.WorksheetFunction.CountIf(ws.Range("A4:A9"), "<>""""")

I got the result 6 while there are only two cells not empty. Any idea?

I also tried CountA `Debug.Print Application.WorksheetFunction.CountA(ws.Range("A4:A9"))` but the same result `6`

[HansV]

All cells with a formula will be counted too, even if the formula returns an empty string.
Try

Debug.Print [SUMPRODUCT(--(A4:A9<>""))]

[YasserKhalil]

there are no fomrulas and even your suggestion results in 6. That's weird

[YasserKhalil]

I have copied clean cells from new worksheet and pasted on my range and everything is OK now. It seems that there hidden characters.
Thank you very much.