Find and replace blank line break.

[robertmonaco]

Solid front and top glass heated

Sliding rear doors (600 model hinged)

Deck forced refrigeration


to:


Solid front and top glass heated
Sliding rear doors (600 model hinged)
Deck forced refrigeration


I am using Microsoft Office for Mac 2016.

I have tried a bunch of formulas to find CHAR(10)/CHAR(13). All I end up with is the three lines of text running into each other.

Any help would be appreciated.

Thanks.

 

[Akuini]

Try this macro:

Sub abc()
    Selection.Replace What:=Chr(10) & Chr(10), Replacement:=Chr(10), LookAt:=xlPart
End Sub

 

[robertmonaco]

Try this macro:

Sub abc()
    Selection.Replace What:=Chr(10) & Chr(10), Replacement:=Chr(10), LookAt:=xlPart
End Sub

Thanks for the suggestion...

I made a slight edit to the formula as it didn't work to begin with.

Chr(10) replaced with Chr(13).

Thanks!