Hello,

I am successfully able to sort through a range of cells and allocate names to various arrays based on specified criteria. Those arrays are then used to populate listboxes in a userform.

I am stuck on how to sort the array alphabetically before populating the listbox with the names.

Any help would be great...please see bottom of code below for populating listbox section

'!CREATE NEW ARRAY TO RETRIEVE MANAGER NAMES FOR POSITIONS IN THE ORIGINAL ARRAY THAT MEET CRITERIA (HAVE VALUES)!


RowCounter = 6
ListCounter = 0
Do While Not IsEmpty(Sheets("matrix").Range("A" & RowCounter).Value)

    If CorrelArray4(ListCounter) <> 0 Then
    CorrelArrayADDNAME(ListCounter) = Sheets("matrix").Range("E" & RowCounter).Value
    Else: End If
    
ListCounter = ListCounter + 1
RowCounter = RowCounter + 1
Loop


'!REMOVE BLANKS FROM ARRAYS (MANAGERS THAT DO NOT MEET CRITERIA)


ReDim CorrelArrayADD(LBound(CorrelArrayADDNAME) To UBound(CorrelArrayADDNAME))
For h = LBound(CorrelArrayADDNAME) To UBound(CorrelArrayADDNAME)
    If CorrelArrayADDNAME(h) <> "" Then
        CorrelArrayADD(K) = CorrelArrayADDNAME(h)
    K = K + 1
    End If
Next
ReDim Preserve CorrelArrayADD(LBound(CorrelArrayADDNAME) To K)


'Populate list boxes

With OutputRep.listMANUAL
.Clear
.List = CorrelArrayADD
End With

    OutputRep.Show
    
End Sub