Zeilenumbrüche in Excel entfernen

Muss man in Excel alle Zeilenumbrüche in einem Feld entfernen, kann dies per Makro erledigt werden:

Sub ZeilenumbrücheErsetzen()
ActiveSheet.Cells.Replace Chr(10), " "
End Sub