How to check #DIV/0! value by macro

[ThrottleWorks]

Hi,

I am trying to prepare a macro, which will find all the possible Errors (#DIV/0!, #NA etc.) from the workbook.

The problem is, I do not know how to define the error value (#DIV/0!).

I tried rn.formula & rn.value but this is not working.
I think I have to define error type instead of value but I do not know how to do it.

I am using following code, but this is not working, can anyone please help me in this.

I have also attached the file for reference.

Sub NACErrorFindMacro()
    Application.ScreenUpdating = False
        Dim MyRng As Range
       
        Dim Lr As Long
        Lr = ActiveSheet.Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
       
        Dim Lc As Long
        Lc = ActiveSheet.Cells.Find("*", SearchOrder:=xlByColumns, _
        LookIn:=xlValues, SearchDirection:=xlPrevious).Column
       
        Set MyRng = Range(Cells(1, 1), Cells(Lr, Lc))
       
            With ActiveSheet
                For Each rn In MyRng
                    If rn.Formula = "#DIV/0!" Then
                        MsgBox "Dhan te dhan"
                        Else
                    End If
                Next rn
            End With
       
           
    Application.ScreenUpdating = True

 

[NARAYANK991]

Hi Sachin ,

Within the Excel VB editor , press F1 ( Help ) , and enter :

cell error values

All the information that you want is described there.

Narayan

 

[ThrottleWorks]

Sorry for late reply, I will surely do it Sir. Thanks for the help.

 

[NARAYANK991]

Hi Sachin ,

See if this is what you were looking for.

Narayan

 

[ThrottleWorks]

Sir, thanks a lot for the help, extreamally sorry for lare reply. (Was facing internent connection problem).

I am trying this, will share the results ASAP.

Have a nice day ahead.

 

[ThrottleWorks]

@NARAYANK991 Sir, this is working for me. Thanks a lot. Though I have to do some changes/additions to the macro from my side. The core code (provided by you) will remain the same.

Sorry for late reply, thanks for your valuable time.
I will upload the final file once it is complete.