Sub RemoveLineBreaks() 'If you Just want ALL line Breaks gone use this. This removes carridgeway returns from selection Application.ScreenUpdating = False Dim rngCel As Range Dim strOldVal As String Dim strNewVal As String For Each rngCel In Selection If rngCel.HasFormula = False Then strOldVal = rngCel.Value strNewVal = strOldVal Debug.Print rngCel.Address Do strNewVal = Replace(strNewVal, vbLf, " ") ' replace new lines with blank space, can change to other items If strNewVal = strOldVal Then Exit Do strOldVal = strNewVal Loop If rngCel.Value <> strNewVal Then rngCel = strNewVal End If End If rngCel.Value = Application.Trim(rngCel.Value) Next rngCel Application.ScreenUpdating = True End Sub
Preview:
downloadDownload PNG
downloadDownload JPEG
downloadDownload SVG
Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!
Click to optimize width for Twitter