Question about Error 2023 code.

supdawg

Well-known Member
Joined
Mar 18, 2007
Messages
608
Code:
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!
 

Excel Facts

Easy bullets in Excel
If you have a numeric keypad, press Alt+7 on numeric keypad to type a bullet in Excel.
try this

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

instead of
Code:
Loop Until ActiveCell.Offset(2, 0).Value = "#REF!"
 
Upvote 0

Forum statistics

Threads
1,214,636
Messages
6,120,664
Members
448,976
Latest member
sweeberry

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top