```
Sub test_code()
ncell = 4
lr = [a1].CurrentRegion.Rows.Count
Columns(1).Font.ColorIndex = 1
Columns(1).Font.Bold = False
ReDim test(lr)
ReDim myarray(ncell) ' this is number of cells to highlight
For r = 1 To lr ' put cells values in array for now
test(r) = Cells(r, 1)
Next r
For iter = 1 To ncell ' scan down the cells, pick largest number, remember the row number
mymin = 0
For r = 2 To lr
If Cells(r, 1) > mymin Then
mymin = Cells(r, 1)
myminrow = r
End If
Next r
myarray(iter) = myminrow ' put row number(s) into myarray
Cells(myminrow, 1) = 0 ' set cell to zero so it's not picked again on next iteration
Next iter
For r = 1 To lr ' put values back into cells
Cells(r, 1) = test(r)
For x = 1 To ncell
If r = myarray(x) Then
Cells(r, 1).Font.Bold = True ' if the row was picked before, highlight it in bold
Cells(r, 1).Font.ColorIndex = 3
End If
Next x
Next r
[a1].Select
End Sub
```