Sub RemoveParaOrLineBreaks()
Dim oRng As Range
Dim oFind As Range
    Set oRng = Selection.Range
    Set oFind = Selection.Range
    With oFind.Find
        Do While .Execute(FindText:="[^13^l]{1,}", MatchWildcards:=True)
            If oFind.InRange(oRng) Then
                oFind.Text = ""
            End If
        Loop
    End With
    Set oFind = oRng
    'Optionally remove additional spaces
    With oFind.Find
        Do While .Execute(FindText:="[ ]{2,}", MatchWildcards:=True)
            If oFind.InRange(oRng) Then
                oFind.Text = Chr(32)
                oFind.Collapse 0
            End If
        Loop
    End With
    'end of option
lbl_Exit:
    Set oRng = Nothing
    Set oFind = Nothing
    Exit Sub
End Sub