Name box value is not in Name Manager

[simmerer]

Hello,
I have a spreadsheet with 3 tables which are named. These are displayed in the Formulas tab of the ribbon in Excel 2010, in the Name Manager. However, in addition to those three, another range name is displayed in the Name Box. There was unreadable information in this spreadsheet when I opened it this morning which Excel repaired. I think that is why this name is there.

The range is not needed and does not appear to really refer to any cells. That is, when I select it in the Name Box, no range is selected. How do I get rid of it? I tried Range("Actions4").delete which did not work.

-- removed inline image ---

-- removed inline image ---

 

[Zubair Muhammad]

Try

Names("Actions4").delete

 

[simmerer]

It failed with this error. "Application-defined or object-defined error"

 

[Fluff]

Why not just delete it using the name manager?

 

[simmerer]

Hi Fluff! the name is not in the name manager. It is weird. Selecting the name in the name box does nothing. When I opened the file this morning, I got an error regarding unreadable content. Excel removed stuff to repair. That is probably when this occurred.

 

[Fluff]

Not sure if this will help but
File > Check for issues > Inspect Workbook > Inspect
Once finished scroll down & look for hidden names

 

[simmerer]

I do not see "Check for Issues" in my Excel 2010.

 

[Fluff]

According to this
https://support.office.com/en-us/ar...-9872-686CC64B6949#__information_the_document

It should be there somwhere

 

[simmerer]

OK I found it, ran it, and it did not find any hidden names. It does not seem to be causing any issues at this point, so I guess I will just ignore it

 

[Fluff]

If this is still a problem, try running this & see what you get

Sub ListNamedRanges()
  Dim wb As Workbook
  Dim NR As Name
  Dim X As Long
  
  Set wb = ThisWorkbook
  X = 0
  
  ActiveCell.Offset(X, 0).Value = "Name"
  ActiveCell.Offset(X, 1).Value = "Index"
  ActiveCell.Offset(X, 2).Value = "Refers TO"
  ActiveCell.Offset(X, 3).Value = "WB"
  For Each NR In wb.Names
    X = X + 1
    ActiveCell.Offset(X, 0).Value = NR.Name
    ActiveCell.Offset(X, 1).Value = NR.Index
    ActiveCell.Offset(X, 2).Value = "'" & NR.RefersTo
    ActiveCell.Offset(X, 3).Value = NR.ValidWorkbookParameter
    
  Next NR
    
End Sub

Got the code from here
https://www.mrexcel.com/forum/excel-questions/1024971-please-help.html