It works fine for me, even with 11 values satisfying the test.

Bit of a long shot, but in the VBIDE, go into ToolsReferences, and see if
any items are marked as MISSING. Uncheck them if so.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"ste mac" wrote in message
ups.com...
Hi, I altered the code below (written by Chip, in this ng)
To highlight the top ten values... the code stops at 'Next icell'
and I don't know why!

Does it need error trapping or is it because there could be two
equal values ranked 10th which would give 11 highest values?

any help would be gratefully recieved... cheers...

ste

Sub topten()
Sheets("All Data").Select
Dim rng As Range
Dim icell As Variant
Dim TheLarge As Long

Set rng = Sheets(4).[N3:N18502].SpecialCells(xlCellTypeConstants,
xlNumbers)
TheLarge = Application.Large(rng, 10)

For Each icell In rng
If icell.Value = TheLarge Then icell.Interior.ColorIndex = 4

Next icell '<stops here

End Sub