Private Sub Search_Click()
Dim MacroSearchArray() As String
Dim i As Integer
Dim A As Integer

 MacroSearchArray = Init_Macros.fSearchMacroByName(Temp_SearchMacroByName)

For i = LBound(MacroSearchArray) To UBound(MacroSearchArray)
    If i >= 0 Then
      If Len(MacroSearchArray(i)) > 0 Then
        Debug.Print MacroSearchArray(i)
        A = Val(MacroSearchArray(i))
        FunctionList.Selected(A) = True
      End If
    End If

End Sub
MacroSearchArray consists of numerics in string format (1 to 1005 possible)
FunctionList is a scrollable doubleclick list

A search term is entered into another Sub which is then passed to Function fSearchMacroByName which returns to populate array MacroSearchArray in Sub Search with any items in FunctionList that match the search term.

What I want to do is highlight all entries in FunctionList that match the search term. The problem I'm running into is the only item selected in FunctionList is the next entry AFTER the last match to the search term. I obviously want ALL matches in the list to be Selected (although I am really only interested in highlighting them)