If you look at the help for Rnd you will see that behaviour is expected, and the way to fix it is easy... just run the following line of code once (perhaps in the Workbook_Open event):
Code:
Randomize