Difference between revisions of "MakeArrayFromSearch"

From scripting
Jump to: navigation, search
(Created page with " Function MakeArrayFromSearch(SearchStr As String) As Variant MySel.Search SearchStr Dim TempArr() If MySel.Count = 0 Then ReDim TempArr(0) MakeArrayFromSearch =...")
 
(No difference)

Latest revision as of 07:20, 22 April 2017

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