We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Public Function FindMatches(Test_Cell As Range, Lookup_array As Range) As String 'This returns all substring matches within a cell Dim cl As Object For Each cl In Lookup_array If InStr(1, Test_Cell, cl.Value, vbTextCompare) > 0 Then FindMatches = FindMatches & cl.Value & ", " End If Next cl If FindMatches <> "" Then FindMatches = Left(FindMatches, Len(FindMatches) - 2) Else FindMatches = "" End If End Function
Join the community of 500,000 technology professionals and ask your questions.