You could also write a little table of the categories, and then create a
countif function for these. so, assuming the table is in A1:A10 on sheet2
and the data is on sheet 1, something like

Worksheets("Sheet2").Range("A1:A10").Formula = "=COUNTIF(Sheet1!A:A,A1)"


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"violet" wrote in message
...
i have a worksheet that categorize people into category n country. i need
to
do a sum of all these ppl. is there a way to code a program to count the
number of name and insert it in certain cells.