Excel macro-random generator/selector

[meister]

I need an excel macro that can randomly select say 10 items/words out of a large list and print them out. It would be great if the macro could keep track of the items selected and start over once the list is exhausted. The list is a few thousand words.
Thanks for any help!!!

 

[alchara]

Try the following code:

Dim RandomRowNumbers(9)
NumberOfRows = Intersect(ActiveSheet.UsedRange, Columns("A&quot).Rows.Count
For i = 0 To 9
RandomRowNumbers(i) = Int(NumberOfRows * Rnd + 1)
Range("b" & i + 1).Value = RandomRowNumbers(i)
Next i

It finds all the used rows in column A, then picks a random row and places the value in column B starting in cell B1. It loops through this process 10 times.

Hope this helps.
Kind regards, Al.

 

[meister]

Thanks for the help! I'll try it!