Want to be a web developer? You'll need to know HTML. Prepare for HTML5 certification by enrolling in July's Course of the Month! It's free for Premium Members, Team Accounts, and Qualified Experts.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.