Kan man sortere i et matrix i VBA?

jeg har en stump kode her, også kaldet bobbelsortering
RankArray er dit array

Public Sub Test()
rankarray = Range("A1:A6")
N = UBound(rankarray)
swap = True
Do While swap
  swap = False
  For i = 1 To N - 1
      For j = i To N
        If rankarray(i, 1) > rankarray(j, 1) Then
                        Temp = rankarray(i, 1)
            rankarray(i, 1) = rankarray(j, 1)
            rankarray(j, 1) = Temp
                      swap = True
        End If
    Next
  Next
Loop
Range("B1:B6") = rankarray
End Sub

Super... lægger du et svar!

Ved at slette kolonnenummeret i Arrayet bliver alle kolonner i Arrayet også flyttet, altså:
rankarray(j)
i stedet for
rankarray(j, 1)

et svar