Question about Error 2023 code.

[supdawg]

Do
    If ActiveCell.Value = ActiveCell.Offset(2, 0).Value Then
        ActiveCell.Offset(-1, -1).Interior.ColorIndex = 4
        ActiveCell.Offset(5, 0).Select
    Else
        ActiveCell.Offset(5, 0).Select
    End If
Loop Until ActiveCell.Offset(2, 0).Value = "#REF!"

If ActiveCell.Offset(2, 0).Value = "#REF!", then I get an error.

Anyway to make more robust? When I hover over the above statement (ActiveCell.Offset(2, 0).Value), I get an Error 2023 message as a tool tip.

I want the loop to stop if it encounters a "#REF!" statement in the cell as a result of a formula.
TIA!

 

[iggydarsa]

try this

Loop Until IsError(ActiveCell.Offset(2, 0).Value)

instead of

Loop Until ActiveCell.Offset(2, 0).Value = "#REF!"

 

[supdawg]

Thanks.. I tried IsError, just had it in the wrong place.