I have a selection of arrays, and I want to pick a single item out of them at random. The problem is that when I run my code the sequence in which my "random" selections appear is the same. This is the code I am using:

Code:
Sub RandomTexts()
For i = 1 To 7
destin1(i) = Sheets("mutable 1").Cells(2 + i, 2)
Next i
strDestin1 = destin1(Int(7 * Rnd) + 1)
End Sub
I hope there is a smiple solution. Thanks for your help.