Hi folks,

I've created a public array

Sub StoreRange()
   'Dim rCnt As Long, cCnt As Integer

With Sheet1.Range("A1:R250")

    ReDim MyArray(1 To .Rows.Count, 1 To .Columns.Count)

    MyArray = Sheet1.Range("A1:R250")

End With

End Sub
This encompasses 2 header rows.

blank, blank, blank, date, blank, etc...
Record# Name owner data1 data2 etc
3 Smith trust xyz abc etc
4 Jackson joint jkl efg etc
.
.
.
250

I need to sort this into a new array based on alphabetizing column 2 (Name) such that I can populate a multi-column listbox and then when a Name is selected from the list box, I can execute some code on the record involved.

Thanks