Hi Lance,

Something like this may work for you:

Sub ColorFinishers()
Dim rng As Range
Dim nPlace As Integer

Selection.Interior.ColorIndex = xlColorIndexNone

For Each rng In Selection
For nPlace = 1 To 5
If Application.WorksheetFunction.Large(Selection, nPlace) =
rng.Value Then
'/ color appropriately
Select Case nPlace
Case 1
rng.Interior.Color = vbRed
Case 2
rng.Interior.Color = vbYellow
Case 3
rng.Interior.Color = vbBlue
Case 4
rng.Interior.Color = vbGreen
Case 5
rng.Interior.Color = vbBlack
End Select
End If
Next nPlace
Next rng
End Sub

--
Regards,

Jake Marx
www.longhead.com


[please keep replies in the newsgroup - email address unmonitored]

Lance Hoffmeyer wrote:
Hey all,


I am trying to figure out a way to format a set of number so that the
number with the max value has a cell color of red, the next max value
has a cell color of yellow, the 3rd max value has a cell color of
blue, the 4th max value has a cell color of green, and the 5th max
value has a cell color of grey. If this is confusing replace the
"max value" with "top scoring". There will not be any ties.


For example

02
23 (yellow)
05
27 (red)
08
19 (blue)
01
10 (grey)
00
14 (green)
06


Has anyone done something similar to this?

Lance