BubbleSort

Function BubbleSort(ArrayName, SortKey)
x = ArrayName
'If is2d(ArrayName) = True Then
First = LBound(ArrayName)
Last = UBound(ArrayName)
For i = First To Last - 1
For j = i + 1 To Last
If ArrayName(i, SortKey) > ArrayName(j, SortKey) Then
For idx = LBound(ArrayName, 2) To UBound(ArrayName, 2)
Temp = ArrayName(j, idx)
ArrayName(j, idx) = ArrayName(i, idx)
ArrayName(i, idx) = Temp
Next idx
End If
Next j
Next i
BubbleSort = ArrayName
End Function