I was looking for a way to do this with VBA.Paste this formula in any cell other than Column A :
Code:=COUNTA(A:A)
On Error Resume Next
cnt1 = Range("A:A").SpecialCells(xlCellTypeConstants).Count
cnt2 = Range("A:A").SpecialCells(xlCellTypeFormulas).Count
On Error GoTo 0
MsgBox cnt1 + cnt2
I was looking for a way to do this with VBA.
MsgBox [COUNTA(A:A)]
…