If Not Intersect(Target, Cells(16, 238)) Is Nothing Then
Cancel = True
ActiveSheet.Unprotect
Dim Dstr1, Dstr1i, Dstr2 As String
i = 0
     For icol = 22 To NumCol - 2
         Dstr1i = Cells(15, icol).Value ' Берем то что нужно вывести в итог
         Dstr2 = Cells(16, 237).Value '  берем текст из "вывести итоговые"
         Dstr1 = Replace(Dstr1i, Chr(10), " ") ' убираем/заменяем перенос строки в ячейке <----- ТУТ ВЫДАЕТ ОШИБКУ на Chr(10) ОБ ОТСУТСТВИИ БИБЛИОТЕКИ.
         If Dstr1 = Dstr2 Then   ' ищем нужную колонку по всему плану.
         'MsgBox Dstr1 & " " & Dstr2
             For irow = 17 To NumRow - 1
                 If i < 12 Then
                     Cells(irow, 224 + i).Value = Cells(irow, icol).Value
                 Else
                     Exit For
                 End If
             Next
         i = i + 1
         End If
     Next
End If