Hi
Something like this should act as a starter
Dim lEmailRow As Long, sEmail As String
lEmailRow = (Rnd() * 316) + 1
MsgBox Cells(lEmailRow, 1)

Chnge 316 to reflect how many rows of data you actually have (I had 316!!).
this assumes your list is in column A and there is no heading.

As for your second question I believe the answer is yes but I don't actually
have any experience of dealing with Outlook automation.

;-)

"John" wrote in message
...
Hi,
I have a subscriber email address list of over 20,000 Email addresses.
I would like to be able to click a button on a sheet and a dialogue box
appear displaying an
Email address which has been randomly selected from the list. Is this
possible? If so I would really appreciate some help on accomplishing this
task.
Also, on the dialogue box, would it be possible to have a button which
when clicked, copies the address selected to the To... field of a new
email in MS Outlook 2003.
Regards

John