Function randomizeArray(vector As Variant) As Variant Dim l As Integer Dim u As Integer Dim i As Integer Dim rndPosition As Integer Dim temp As Variant l = LBound(vector) u = UBound(vector)