Sub Example1()
    Dim rng As Range
    On Error Resume Next
    Do
        DoEvents
        Set rng = Cells.Find(What:="+#REF!", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
            :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=False)
        If rng Is Nothing Then Exit Do
        rng.Activate
                                 
        ActiveCell.Replace What:="+#REF!", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
    Loop
    On Error Resume Next
    Do
        DoEvents
        Set rng = Cells.Find(What:="#REF!", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
            :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=False)
        If rng Is Nothing Then Exit Do
        rng.Activate
        ActiveCell.Replace What:="#REF!", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
    Loop
End Sub