Sorting in Array

[Peterso]

I wrote the following:

Sub mark6()
Dim A(6) As String
For i = 1 To 6
A(i) = InputBox("Enter Number " & i)
Next i
End Sub

I would like to know how to write the script so as to rearrange and sort the 6 numbers from the smallest to the bigest. ie A(1) is the smallest and A(6) is the biggest. thanks.

 

[Fazza]

Easy to google for a solution. Chip Pearson's super website has this http://www.cpearson.com/excel/SortingArrays.aspx

 

[Rick Rothstein]

If you declare your array variable A as a Variant data type, then you can use this method to create your sorted array...

Sub CreateSortedArray()
  Dim i As Long, A As Variant
  With CreateObject("System.Collections.ArrayList")
    For i = 1 To 6
      .Add InputBox("Enter Number ")
    Next i
    .Sort
    A = .ToArray
  End With
[COLOR="#008000"][B]  '
  '  At this point, the variable A will contain a
  '  one-dimensional array of six elements
  '  whose indexes range from 0 to 5.
  '
[/B][/COLOR]End Sub