Hello, depending on your sheet layout, like if the names are in a column, a procedure like the following could be used:<pre>
Sub Ran()
Dim upr As Integer, lwr As Integer, Mynum As Integer
Randomize
upr = 1500 'change to last row number
lwr = 1 'change to first row number
Mynum = Int((upr - lwr + 1) * rnd + lwr)
Range("a" & Mynum).Select 'Change a to appropriate column
'msgbox Range("a" & Mynum) ' If you just want a pop-up
End Sub</pre>
This will select a random cell in the range of names, this works with a1:a1500.
_________________
Cheers,<font size=+2><font color="red"> Nate<font color="blue"> Oliver</font></font></font>
This message was edited by NateO on 2002-11-04 18:07