The VBA Rnd function returns a random number less than 1 and greater than or equal to 0.
Rnd
Some examples of values returned by the Rnd function:
Sub RndExample1() Randomize MsgBox Rnd 'Returns, for example: 0.1790262 MsgBox Rnd 'Returns, for example: 0.734448 MsgBox Rnd 'Returns, for example: 0.4870669 MsgBox Rnd 'Returns, for example: 0.9100572 MsgBox Rnd 'Returns, for example: 0.7860449 MsgBox Rnd 'Returns, for example: 0.1607063 end sub
Generate a random integer from 1 to 10 using the Rnd function:
Function RandomNumber() Randomize RandomNumber = Int(Rnd * 10 + 1) end function Sub RndExample2() MsgBox RandomNumber 'Returns, for example: 6 MsgBox RandomNumber 'Returns, for example: 2 MsgBox RandomNumber 'Returns, for example: 10 MsgBox RandomNumber 'Returns, for example: 7 MsgBox RandomNumber 'Returns, for example: 9 MsgBox RandomNumber 'Returns, for example: 1 MsgBox RandomNumber 'Returns, for example: 8 end sub