Something like this :-
Code:
--------------------
Dim MyNum As Integer
If ActiveSheet.Range("A1").Value=0 Then Exit Sub
MyNum = Int(Rnd * 6) + 1
MsgBox (MyNum)
--------------------
--
BrianB
------------------------------------------------------------------------
BrianB's Profile:
http://www.excelforum.com/member.php...info&userid=55
View this thread:
http://www.excelforum.com/showthread...hreadid=388248