Remove unwanted line breaks from data

Remove unwanted line breaks from data: "Sub CarriageBegone()
Dim rng As Range
For Each rng In Selection
rng.Replace vbLf, ', '
rng.Replace vbCr, ', '
Next rng
Set rng = Nothing
End Sub "