Help seeding random numbers - currently they are not random

Long story short, I have a Kris Kringle spreadsheet that I wrote. It takes a list of people and randomizes who buys for who. The problem is that I have discovered it isn't random. This is the code I am using to create a random number

Please Login or Register  to view this content.

This loops over and over to do its work. The trouble is that every time I run the VBA code, it generates the same random numbers in the same order. I am aware that you need to "seed" the generator to get a different starting point for the random number generator, but I can't work out how to do this. I have tried using "randomize" at the start of the VBA but that didn't work.

Any ideas?

x = WorksheetFunction.RandBetween(1,1000)??

See the workbook at https://www.box.com/s/ug8etrfi404n3au5md5g