Need Help, need a code to randomly mix cells

[Shawnathon]

Need Help, need a code to randomly mix cells

I have a list of 5000 names and would like to mix up the names and place them into another column or page.

Is there a code that would make the mix of the names different every time? Do not want to have same outcome every time. Please help, thanks

Shawn

 

[VoG]

Try adding the line in red

Dim x As Variant, u() As Variant
Randomize
a = [a1].CurrentRegion.Resize(, 1)

 

[Shawnathon]

Nice! Thanks VoG! It looks like it works! Thanks alot! Really appreciate all of the help on this Forum!

Thanks!
Shawn

 

[mirabeau]

Try adding the line in red ...

Thanx Peter. I guess one quid pro quo deserves another.