I have a 2D array with 2 rows and 100 columns (Redim ThisArray(0 to 1, 0 to
99). I have loaded data into the array as follows:

ThisArray(0,0) = A
ThisArray(0,1) = A
ThisArray(0,2) = A
ThisArray(0,3) = B
ThisArray(0,4) = B
ThisArray(0,5) = B
ThisArray(0,6) = B

ThisArray(1,0) = Red
ThisArray(1,1) = Red
ThisArray(1,2) = Blue
ThisArray(1,3) = Red
ThisArray(1,4) = Blue
ThisArray(1,5) = Blue
ThisArray(1,6) = Blue

I want to be able to count ther number of matches that exist across the rows
and record the max. For example A has 2 Red and B has 3 Blue. I wan to be
able to pull this data into a new 2D array called Results(). I would like it
to look as follows:

A B C
2:Red 3:Blue ?

How do I do this?

Thanks

EM