Using the rnd() function and select case statements might help

X = Rnd()
Select Case X
Case Is < 1 / NumberOfOptions
Score = 1
Case Is < 2 / NumberOfOptions
Score = 2
......
.......


End Select


--
mrice

Research Scientist with many years of spreadsheet development experience
------------------------------------------------------------------------
mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931
View this thread: http://www.excelforum.com/showthread...hreadid=547583