SearchMe = mySearch
SearchMe = Replace(SearchMe, " ", "")
SearchStringArray = Split(SearchMe, "|")
For Each Search In SearchStringArray
Rslt = Searchfunction(Search)
Next
Function Searchfunction(SearchMe As String) As String
value = False
With ActiveSheet.Range("B7:L5000")
Dim C As Range
Set C = .Find(SearchMe, LookIn:=xlValues)
If Not C Is Nothing Then
Dim FirstAddress As String
FirstAddress = C.Address
Do
value = True
Rslt = Rslt & C.Address & ","
Set C = .FindNext(C)
Loop While C.Address <> FirstAddress
Return
End If
End With
End Function