Another way would be to run this macro
Sub Replace_Carriage_Return()
Selection.Replace What:=Chr(10), _
Replacement:=Chr(32), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub
it also replaces the carriage return by a space,
if replaced with nothing
Sub Replace_Carriage_Return()
Selection.Replace What:=Chr(10), _
Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub
finally you can do this using edit>replace,
in the find what box hold down alt while typing 010 on the numpad,
release alt key and either put a space or leave the replace with box blank