vba сортировка массива

Ответ от Наталья[гуру]
Если вопрос еще актуален, то вот:
Sub BubbleSort(List() As String)
' Сортировка массива List в возрастающем порядке
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i) > List(j) Then
Temp = List(j)
List(j) = List(i)
List(i) = Temp
End If
Next j
Next i
End Sub
Источник: Джон Уокенбах "Профессиональное программирование на VBA в Excel 2003" (издание 2006 г. , стр. 247).
Пример давался автором для сортировки листов в активной рабочей книге Excel, поэтому массив List.