VBA User Defined Function for finding keyword Matches in a keyword by looking through a list of available keywords.

Find and Show Word Matches

Function ShowMatch(Keyword As String, ByVal MyRange As Range) As String
    Dim Delimiter As String: Delimiter = "-"
    Dim Temp As String: Temp = ""
        For Each Row In MyRange.Rows
          For Each cell In Row.Cells
             If InStr(Keyword, cell) > 0 Then
                Temp = Temp + Delimiter + cell
             End If
          Next cell
        Next Row
    ShowMatch = StrConv(Right(Temp, Len(Temp) - 1), vbLowerCase)
End Function