VBA/Excel/Access/Word/Math Functions/Rnd

Rnd([number]) returns A random number (with no argument) or a number based on the given initial seed.

 
Sub mathDemo10()
   Debug.Print Rnd(1)

==Rnd() Returns a random number between 0 and/td>

 
Sub mathF6()
    Debug.Print Rnd()
End Sub

To prevent repetitive sequences, use the Randomize statement to initialize the random number generator with a seed value based on the system clock.

 
Sub intDemo()
    Dim val1
    Randomize
    val1 = Int(100 * Rnd + 1)
End Sub