CodeItBetter Programming Another VB Programming Blog

'Arrays, Collections, Lists - How to Scramble the order of elements in an array.
Public Sub ShuffleArray(ByRef vArray As Variant, Optional startIndex As Variant, _
    Optional endIndex As Variant)
    Dim I As Long
    Dim rndIndex As Long
    Dim Temp As Variant
 
    If IsMissing(startIndex) Then
        startIndex = LBound(vArray)
    End If
 
    If IsMissing(endIndex) Then
        endIndex = UBound(vArray)
    End If
 
    For I = startIndex To endIndex
        rndIndex = Int((endIndex - startIndex + 1) * Rnd() + startIndex)
        Temp = vArray(I)
        vArray(I) = vArray(rndIndex)
        vArray(rndIndex) = Temp
    Next I
End Sub