Hi Howard,

Am Sat, 30 May 2015 13:57:32 +0200 schrieb Claus Busch:

Sub Test()
With Sheets("Sheet2")

or try it this way (without helper column):

Sub Test2()
Dim i As Long
Dim varLarge(19) As Variant

With Application
varLarge(0) = .Max(Sheets("Sheet1").Range("K2:KN2"))
For i = 1 To 19
varLarge(i) = .Large(Sheets("Sheet1").Range("K2:KN2"), _
.CountIf(Sheets("Sheet1").Range("K2:KN2"), "=" & varLarge(i - 1)) + 1)
Next

For i = LBound(varLarge) To UBound(varLarge)
Sheets("Sheet2").Cells(i + 2, 1) =
..Index(Sheets("Sheet1").Range("K1:KN1"), _
.Match(varLarge(i), Sheets("Sheet1").Range("K2:KN2"), 0))
Next
End With
End Sub



Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional