Sorry, I found a little mistake. Please modify my code as follows.

Code:
--------------------

'Shuffle Array
For i = 0 To n

--------------------



---
Message posted from http://www.ExcelForum.com/