M
Michael
Thanks to Rocky for the following Macro to select and spin
a random number for a raffle. However, a couple of
questions. Will the routine include 1 and 100 in the draw
and secondly can any numbers be input ie, 87000 to 87500
Regards
Michael
Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As
Long)
Sub SpinNumber()
Dim X As Integer
For X = 1 To 99
Range("I8") = Int((100 * Rnd) + 1)
Sleep 10
Next X
End Sub
a random number for a raffle. However, a couple of
questions. Will the routine include 1 and 100 in the draw
and secondly can any numbers be input ie, 87000 to 87500
Regards
Michael
Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As
Long)
Sub SpinNumber()
Dim X As Integer
For X = 1 To 99
Range("I8") = Int((100 * Rnd) + 1)
Sleep 10
Next X
End Sub