VBA Site contains VBA code to create macros in WORD EXCEL ACCESS OUTLOOK

Array sort

Table = b()

For i = LBound(b) To UBound(b)

For j = LBound(b) To UBound(b)

If b(i) < b(j) Then 'asc or > desc

Temp = b(j)

b(j) = b(i)

b(i) = Temp

End If

Next j

Next i