Frank Kabel wrote...
see:
http://www.mcgimpsey.com/excel/udfs/randint.html
...
Incomplete answer. Randint could provide a shuffled array of numbers
from 1 to 16, but to sample from it cyclically would require another
UDF like
Function cycrnd() As Long
Static a As Variant, n As Long
Application.Volatile 'necessary for this
If IsEmpty(a) Then
a = randint(1, 16)
n = LBound(a)
Else
If n < UBound(a) Then n = n + 1 Else n = LBound(a)
End If
cycrnd = a(n)
End Function
--
hgrove
------------------------------------------------------------------------
hgrove's Profile:
http://www.excelforum.com/member.php...o&userid=11432
View this thread:
http://www.excelforum.com/showthread...hreadid=274544