Thanks for the sample project, template file and screenshot.
I evaluated your issue a bit using your template file and sample code. I found your so called missing named range is actually a table in Excel worksheet, so you cannot get it in Name collection. Rather you may use objWorkbook.Worksheets.GetNamedRangesAndTables to get both named ranges and tables in one go. Please change your sample code segment accordingly, see the update code segment that work find as I tested:
If Not IsNothing(objWorkbook) Then
Me.Cursor = Cursors.WaitCursor
For Each objName As Range In objWorkbook.Worksheets.GetNamedRangesAndTables
arrData(0) = objName.Name
arrData(1) = "True"
arrData(2) = objName.RefersTo
arrData(3) = ""
Hope, this helps a bit.