Sub Test_TRIM
Dim i as Long
Application.ScreenUpdating = False
For i = [A65536].End(xlUp).Row To 1 Step -1
Cells(i, 1).Value = Replace(Cells(i, 1).Value, Chr(10), vbNullString)
Cells(i, 1).Value = Replace(Cells(i, 1).Value, Chr(13), vbNullString)
Next i
Application.ScreenUpdating = True
End Sub