If you've already sorted your array alphabetically, you can do:
Dim sCurVal, sLastVal, iDups
iDups = 0
For i = LBound(YourArray) To UBound(YourArray)
sCurVal = YourArray(i)
If sCurVal = sLastVal Then iDups = iDups + 1
sLastVal = sCurVal
This will just give you the total number of duplicate items, like, if your
iDups will return as 3, since there is one extra c and two extra e's.
Is that what you wanted, or did you want to be able to say:
c has 1 duplicate
e has two duplicates
Ray at work
"Michelle" <abchotmail.com> wrote in message
news:3f2a7499$0$10354$afc38c87news.optusnet.com.a u...> hi,
> i have created an array from recordset containing user names
> eg. (davidp, davidp, evenf, patricka, rebeccah)
> which i have sorted in alphabetical order, but i need to
> identify duplicates in this array and the number of times it has
> been duplicated.
> can someone help?