VBA: Array sort

 

 

Dim MyArray(10) As String

Dim lLoop As Long, lLoop2 As Long

Dim str1 As String

Dim str2 As String

' Populate array...

'Sort array

For lLoop = 0 To UBound(MyArray)

For lLoop2 = lLoop To UBound(MyArray)

If UCase(MyArray(lLoop2)) < UCase(MyArray(lLoop)) Then

str1 = MyArray(lLoop)

str2 = MyArray(lLoop2)

MyArray(lLoop) = str2

MyArray(lLoop2) = str1

End If

Next lLoop2

Next lLoop