从工作表中删除所有回车

Question

回车正在破坏我用于创建唯一标识符和我的日子的连接公式。

尝试插入VBA以从活动表中删除所有回车符，其中包含一些我已经压缩的代码并且IF语句崩溃。 当我将鼠标悬停在黄色调试行上时，弹出“MyRange = Error 2015”

有关下面的任何想法？或者更好的代码？

由于

Sub RemoveCarriageReturns()
    Dim MyRange As Range
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    For Each MyRange In ActiveSheet.UsedRange
        If 0 < InStr(MyRange, Chr(10)) Then
            MyRange = Replace(MyRange, Chr(10), "")
        End If
    Next

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub