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 ?

If you're stopping to get a response from the user, you could just ask in your
code using inputbox, application.inputbox or just msgbox.

But if you're going to allow the user to anything and for as long as they want,
I think you'll have to break your macro into two pieces and then have the user
restart the second macro. (Maybe two buttons on the worksheet???)

"¬f©÷" wrote:

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 ?

--

Dave Peterson