Function unorderedList(t)
Randomize
For i = LBound(t) To UBound(t)
X = Int(Rnd * UBound(t))
temp = t(i): t(i) = t(X): t(X) = temp
Next
unorderedList = t
End Function
Sub test()
a = Split("a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y", ",")
MsgBox Join(unorderedList(a), ",")
End Sub