Is this really random?

[The Phil]

I have the following code. It looks at a list in column A on sheet "Rates" and returns a result, putting the result in B1 of the active sheet, and updating with a new random number every 2 seconds.

RPT:
inst = Sheets("Rate").Cells(Rnd * (Sheets("rate").Cells(Rows.Count, 1).End(xlUp).Row - 1) + 2, 1)
Application.Range("B1").Value = inst
Application.Wait (Now + timevalue("00:00:02"))
GoTo RPT

(warning, if you insert this into a test sheet to try it it will be difficult to stop because it will always be in the "wait" mode (unless there's a stop command I'm unaware of)

The problem I have is, it isn't actually random. The results appear to be random, but every time I run it I get the exact same results in the same order. Is there a better function to use to grab a random number from a list? List I want is in the inactive sheet "Rates" from row 3 up to the last row (which may change a lot).

Thanks