Named Range count in immediate window is incorrect, please help :)

These snippets may help you

Sub Loop_Through_Each_Named_Range()
    Dim nm      As Name

    For Each nm In ActiveWorkbook.Names
        Debug.Print nm.Name & " : " & nm.RefersTo
    Next nm
End Sub

Sub Hide_All_Named_Ranges()
    Dim objName         As Name
    
    If Not Application.ActiveWorkbook Is Nothing Then
        For Each objName In Application.ActiveWorkbook.Names
            objName.Visible = False
        Next objName
    End If
End Sub

Sub Unhide_All_Named_Ranges()
    Dim objName         As Name
    
    If Not Application.ActiveWorkbook Is Nothing Then
        For Each objName In Application.ActiveWorkbook.Names
            objName.Visible = True
        Next objName
    End If
End Sub

With the code that YasserKhalil has provided, you will see that there are hidden Named Ranges. Some examples: _xlfn.FORMULATEXT, _xlfn.IFERROR.

I think there may be other hidden entriesbut I don't recall what they are. Maybe something to do with Databases ...