MakeArrayFromSearch
From scripting
Function MakeArrayFromSearch(SearchStr As String) As Variant MySel.Search SearchStr Dim TempArr() If MySel.Count = 0 Then ReDim TempArr(0) MakeArrayFromSearch = TempArr Exit Function End If ReDim TempArr(MySel.Count - 1) For X = 0 To MySel.Count - 1 Set TempArr(X) = MySel.Item(X + 1).Value Next X MakeArrayFromSearch = TempArr End Function