That is the complete sub I try to get working in order to mark the 10 max and
10 min values in the worksheet which name was passed to the sub.


Sub MarkTheCells(rng As Range, worksheetname As String)
Dim rng1 As Range
Dim l As Double, s As Double
Dim cell As Range
Worksheets(worksheetname).Activate
rng.Interior.ColorIndex = xlNone
l = Application.Large(rng, 10)
s = Application.Small(rng, 10)
For Each cell In rng
If IsNumeric(cell) And _
Not IsEmpty(cell) And cell.Text < "" Then
If cell.Value = l Then
cell.Interior.ColorIndex = 3
ElseIf cell.Value <= s Then
cell.Interior.ColorIndex = 5
End If
End If
Next
End Sub

"JulieD" wrote:

Hi David

i couldn't find it in VBA help either (ver 2003) ... bandy2000 is there any
other code or info you have on this?

Cheers
julieD

"David McRitchie" wrote in message
...
application means that it is Excel not VBA so look in Excel Help
not in VBA help.
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"bandy2000" wrote in message
...
I was looking for help for the Excel VBA expression

application.large


But I can't find anything useful neither in the offline nor in the online
help.
Where is this?

Thanks