Dave,

Thanks for the URL to John Walkenbach's solution. I will take a look at it
to see if it meets my needs.

Thanks again for all your help,
Bob


"Dave Peterson" wrote:

John Walkenbach shows how to loop through a range to get the unique values he
http://j-walk.com/ss/excel/tips/tip47.htm

And once you do that, you can use yourcollection.count (nodupes.count is what
John used) as the number of unique entries.




Bob wrote:

I have a range of cell entries,

Worksheets(Sheet1Name).Range(Cells(Sheet1FirstRowN um, _
Sheet1RespCodeColPointer) & ":" & Cells(Sheet1LastRowNum, _
Sheet1RespCodeColPointer))

in which I need to:

1) count the number of unique entries and store the result in a variable

2) copy each of the unique entries that were found to an array, and then
refer to each entry in the array in a subsequent formula

Any help in showing me how to perform these 2 steps would be greatly
appreciated. Thanks.

--

Dave Peterson