How can I view / edit Named Ranges without going through tedious Name Manager window?

d0rian

Active Member
Joined
May 30, 2015
Messages
313
Office Version
  1. 365
My file has several hundred Named Ranges ("NR") that I'm constantly using in formulas / changing. Whenever I want to edit something, I first need to look up just what cell range a particular NR refers to (so I can either change it, or edit the formula accordingly.)

Currently I have to open the Name Manager, scroll down to find the NM, check the Refers To... value to see what it's referencing, etc. Is there a way to speed that process up? E.g. I'm currently looking at this formula:

=INDEX(newdata,MATCH($CB6,newdata_.key,0),MATCH(AA$1,newdata_header,0))

...but I forget just what cell range each of those 3 NR's refers to. What's the quickest way to check that? Can I hover over something that will show the Refers To... value as a tooltip or something? Or perhaps is there a way to immediately bring a particular NR up in the Name Manager for quick viewing/editing?
 
Last edited:

Excel Facts

Fastest way to copy a worksheet?
Hold down the Ctrl key while dragging tab for Sheet1 to the right. Excel will make a copy of the worksheet.
if the formulae are short you could use the evaluate tool Formulas - Evaluate formula and step through each variable, that will tell you
 
Upvote 0
the way I would do it is to list out all the named ranges in an extra worksheet, then use a macro to search the active cell for any Named ranges and display the matches in a message box. The code below will do this for you.
I would also assign the macro to a short cut key
Code:
Sub ListNames2()
exist = False
For i = 1 To Worksheets.Count
    If Worksheets(i).Name = "NamedRanges" Then
        Exists = True
    End If
Next i
If Exists = False Then
Worksheets.Add.Name = "NamedRanges"
End If
Worksheets("NamedRanges").Range("A1").ListNames


End Sub
Sub findnm()
With Worksheets("NamedRanges")
lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
inarr = Range(.Cells(1, 1), .Cells(lastrow, 2))
End With


Form = ActiveCell.Formula
msg = ""
For i = 1 To lastrow
If InStr(Form, inarr(i, 1)) Then
 msg = msg & inarr(i, 1) & "/" & inarr(i, 2) & Chr(10)
End If
Next i
MsgBox (msg)




End Sub
 
Upvote 0

Forum statistics

Threads
1,223,893
Messages
6,175,241
Members
452,622
Latest member
Laura_PinksBTHFT

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