A B C D ... 3 entry1 entry2 entry3 entry4 ... 4 entry4 entry5 entry6 entry7 ... 5 entry8 entry9 entry10 entry11 ... . . . . . .
rownum = Range("A3").Row test = Application.Evaluate("COUNTA(" & rownum & ":" & rownum & ")") MsgBox test
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)