Sub FixHardReturns()
    Dim CH As String, r As Range, v As Variant
    CH = Chr(10)
    For Each r In ActiveSheet.UsedRange
        v = r.Value
        If v <> "" Then
            If InStr(1, v, CH) > 0 Then r.WrapText = True
        End If
    Next r
End Sub