Function fndSpec(rngCell As Range, rngTarget As Range) As String
Dim arrCell() As String, x As Long
Dim rngSub As Range, strSub As String
arrCell = Split(rngCell.Value, ",")
For x = LBound(arrCell) To UBound(arrCell)
Set rngSub = rngTarget.Find(Trim(arrCell(x)), , xlValues, xlWhole)
If Not rngSub Is Nothing Then strSub = strSub & ", " & rngSub.Value
Next x
fndSpec = Mid(strSub, 3)
End Function