Public Function ClearList(st As String, LUT As Range) As String
    Dim arr() As String
    Dim j As Integer
    
    st = Replace(st, Chr(13), "")
    arr = Split(st, Chr(10))
    ClearList = ""
    For j = LBound(arr) To UBound(arr)
        If Not IsError(Application.VLookup(arr(j) & "*", LUT, 1, 0)) Then
            ClearList = ClearList & IIf(Len(ClearList) > 0, Chr(10), "") & arr(j)
        End If
    Next j
End Function