Hi,

The CLEAN worksheet function removes all non printable characters, try
something like this

Sub CarriageRtn()
Dim cell As Range
For Each cell In Selection
cell.Value = Application.WorksheetFunction.Clean(cell.Value)
Next cell

End Sub

Select the problem cells and run the macro