Excel VBA Rnd Not Actually Random

Question

I currently have a macro that when I click a button, it "randomly" gives me a number in a msgbox:

dim number as double
number= Int(8 * Rnd + 1) - 1
MsgBox number

The numbers aren't really random, though, which is the problem. As an illustration, let's imagine that after starting the macro and pressing the button twice, I receive the digits 5 and 2. I get the same two numbers, 5, and 2, whether I close the macro, reopen it, or click the button twice.

It's been years since I used VB.net, so I don't quite remember how to do it. I also wouldn't know how to use it in Excel VBA. However, I do know that there was a technique to truly make it spew out random numbers each time without repeating the "sequence" in VB.net.

Answer 1

 Initialize the random number function.

Sub test()
Dim number As Double
Randomize
number = Int(8 * Rnd + 1) - 1
MsgBox number
End Sub

I hope this solves your problem.