If the functions in the freely downloadable file at
http://home.pacbell.net/beban are available to your workbook (watch for
word wrap)

Sub testIt3a()
Dim arrColor, arrUniq, arrNum, arrOutput
Dim iRows As Long, i As Long
Dim rng As Range
arrColor = Array("Red", "Blue", "Red", "Orange", "Orange", "Red",
"Green", "Blue")
arrUniq = ArrayUniques(arrColor)
iRows = UBound(arrUniq, 1)
ReDim arrNum(1 To iRows, 1 To 1)
For i = 1 To iRows
arrNum(i, 1) = ArrayCountIf(arrColor, arrUniq(i, 1))
Next
ReDim arrOutput(1 To iRows, 1 To 2)
For i = 1 To iRows
arrOutput(i, 1) = arrUniq(i, 1)
arrOutput(i, 2) = arrNum(i, 1)
Next
Set rng = Range("A1").Resize(iRows, 2)
rng.Value = arrOutput
End Sub

Alan Beban

quartz wrote:
I am using Office 2003 on Windows XP.

I need to be able to count the number of each item in a single element
array, then write out the counts.

For example, if the array contains:
Red, Blue, Red, Orange, Orange, Red, Green, Blue

My result would be:
A1: Red B1: 3
A2: Blue B2: 2
A3: Orange B3: 2
A4: Green B4: 1

If anyone has a function to which I could pass my array to output the counts
or could share some code I could adapt it would be most appreciated.

Thanks much in advance.