Убираем все лишнее из текста для SAP

Для SAP большинства текстовых полей очень критично отсутствие некоторых видов знаков, к примеру перевод на новую строку или знак табуляции. Чтоб избежать ошибки пишем в модуль функцию:

Function goodText(ByVal txt As String) As String
            
            txt = Replace(txt, vbCrLf, " ")
            txt = Replace(txt, vbLf, " ")
            txt = Replace(txt, vbCr, " ")
            txt = Replace(txt, vbTab, " ")
            
            txt = Application.Trim(txt)
            
            goodText = txt
End Function

Пример вызова для определенного фиксированного диапазона:

Public Sub normTEXT()
    Dim txt As String
    Dim r As Long, lastR As Long, c As Long
    
    lastR = Cells(Rows.Count, 3).End(xlUp).Row ' Поиск последней строки
    
    For c = 2 To 5 ' Колонки
        For r = 9 To lastR ' Строки
            txt = Cells(r, c).Value
            
            txt = goodText(txt)
            
            Cells(r, c).Value = txt
            
        Next r
    Next c
End Sub