Set CountRange = Range("A1:E4")
Set CriteriaRange = Range("G1:G15")
total = WorksheetFunction.DCountA(CountRange, 3, CriteriaRange)

"muddan madhu" wrote:

Hi All,

I have spreadsheet which has some accounts details .....

Column I - names column

Each account is been worked by different people and they will update
in the respective row of Column I.

Want I need is count of accounts worked by A, B........

I use =dcounta function to get the result..... I need a macro to do
that job.


Thanks