Carriage returns (Enter) in a range

Figured it out! Modified it to below:

Sub Test()
    Dim cell As Range
    For Each cell In Selection
        cell.Value = CleanTrim(cell.Value)
    Next cell
End Sub