Oscar,

Here is some code to do it for the button

Private Sub CommandButton1_Click()
Range("A1").Value =
Evaluate("INDEX(Sheet3!A1:A10000,INT(RAND()*COUNTA (Sheet3!A:A))+1,1)")
End Sub


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"bazzdaciple " wrote in message
...
I am studying for a new course and i want to use excel to help me with
my study. my objective is to create a button on sheet one. when i press
this button it should come up with a word and display this word in a
designated cell. this word has to be selected RANDOM from a list in
sheet two. everytime I press the button it should come up with a new
word (totaly random). I also have to be able to update the list with
new words. can somebody please help me with a formula or a VB script
??? please, this is very urgent.
thanx

oscar


---
Message posted from http://www.ExcelForum.com/