Remove Char(10) or Enter in Excel sheet

Remove   Char(10) or Enter in Excel sheet
Click Alt F11
 then Create Macro Page
then Put this code
 
Option Explicit

Sub RemoveRtns()
Dim cel As Range
For Each cel In ActiveSheet.UsedRange
cel = Replace(cel, Chr(10), " ")
Next
End Sub


then Run  Macro