Picking Random Entries from list

Hi,

You could use the Offset function combined with the Rand function. Say your list is in range A2:A11 you could use this formula to return a random name from the list:-
=OFFSET(A1,INT(RAND()*10)+1,0)

HTH,
Dax.

VB Macro to Random pick from a list.

This macro will run from a "Hot-key" (Macro - Macros [select macro] - Options [assign key]) or a form button (View - Toolbars - forms [select, size and place button]) Note click to edit button lable.

Open macros and copy & paste the code below or (Macro - Macros [type myRnd as the macro name) and copy the code below, which is between Sub & End in between the macto Sub and End.

The code is commented to tell you how to set it up for your name-list sheet address. JSW

Sub myRnd()
'Find a random name in a existing names list.
'By Joe Was, 6/27/2001.

Dim myOrder As Range
Dim myName
Dim mySelect As Variant

'Note: The 20 below = the ending ROW of your names list.
' The 1 below = the starting ROW of your names list.
mySelect = Int((20 * Rnd) + 1)

'Note: The "A" below is the column where your names list is.
myName = Range("A" & mySelect)

'Put the answer in a screen message box.
MsgBox myName
End Sub

Code to Random pick from a list and put to sheet cell.