the original module is :

Public Sub random()
Dim cell As Range
Dim count As Integer
Randomize
count = Selection.count
For Each cell In Selection
cell.Value = Rnd
Next
- - - - - - - - - - - - sperate the module from this
For i = 1 To count
Min = Application.WorksheetFunction.Min(Selection)
For j = 1 To count
If Selection(j) = Min Then
Selection(j) = i
End If
Next j
Next i

End Sub


How should I add or delet some moudle for connecte the two part ?