Sub KillLinebreaks()

    Cells.Replace What:=Chr(10), Replacement:=";", _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
        False, ReplaceFormat:=False

End Sub