how about this ???

Code:
Public Sub Unsort(List() As Long, min As Long, max As Long)
Dim i As Long
Dim pos As Long
Dim tmp As Long

    For i = min To max - 1
        pos = Int((max - i + 1) * Rnd + i)
        tmp = List(pos)
        List(pos) = List(i)
        List(i) = tmp
    Next i
End Sub