Copying Named Ranges

You might be interested in My Excel Toolbox's freely available array function
ListNames([Scope], [SkipHidden], [SkipHeader]) and macro UnhideNames(). These procedures make it possible to view defined names (named ranges) that are normally hidden (not visible). See https://sites.google.com/view/MyExcelToolbox/

Hello, I would like to share the version of this macro that I used. I ran into an issue with hidden names in my workbook- these were found by using the Name Manager+ from https://jkp-ads.com/OfficeMarketPlaceNM-EN.asp. They looked like _xlfn._xlws.FILTER =#NAME? To skirt this issue arising, I only use the visible names. The second change I made was the RefersTo value. I wanted it to be the name of my source + the reference value, so =[Source.xlsm]$A$1. Therefore I had to remove the "=" from x.Value, and combine it with a string containing the source workbook name. Finally, I run the macro with both workbooks open, and just in case, I made sure that Book2.xlsm had the same number of sheets as the source workbook.

Sub Copy_All_Defined_Names()
' Loop through all of the defined names in the active
' workbook.
String1 = "=[Source.xlsm]"
For Each x In ActiveWorkbook.Names
' Check if name is visible; only use the visible names
If x.Visible = True Then
' Add each defined name from the active workbook to
' the target workbook ("Book2.xls" or "Book2.xlsm").
' "x.Value" refers to the cell references the defined name points to.
String2 = x.Value
Result = Replace(String2, "=", "")

InputText = String1 & Result
Workbooks("Book2.xlsm").Names.Add Name:=x.Name, _
RefersTo:=InputText
End If
Next x
End Sub

If your Book2.xlsx doesn't contain the sheets with the same name as your source sheet (active sheet), the macro will crash.

I had the same issue as Cameron Wild. When I click in the line, it looks like it is trying to pull in a function "xlfn.AVERAGEIFS" which comes back with a refers to of "=#NAME?" error which is killing the program. Why is it pulling in Excel Functions instead of just defined names? Does anyone know how to only pull in defined names? Thanks for any help you can give.

Doesn't work in Excel 2016 :(

Says syntax of the name is incorrect - highlights this line:

Target.Names.Add Name:=n.Name, RefersTo:=n.value

Andrew: The "subscript out of range" error means that you don't have a workbook open that is named Book2.xlsx.

-Allen

Failing on the line

Set Target = Workbooks("Book2.xlsx")

with

Runtime Error '9': Subscript out of range.

Just to validate I was using the right destibnation file, I copied the full posix compliant path to Workbooks(""). I also opened up the target file and use the "immediate window" and ran


? activeworkbook.fullname

and got
Macintosh HD:Users:my_userid:Documents:Oly:OlyJunk.xlsm

and pasted that into the Workbooks() function.. Same result.

What could be the problem? The target has the exact-same named worksheets and data ranges as the source.

Keeping this page with the macro open, open Excel and the file you are working.
Click the Developer tab
Click Macros. This will open up VBA.
Type "CopyNames" (without the quotes) in the Macro Name box.
Click Create
Highlight and copy the macro in the web page
Go back to the macro and Select All(Ctrl + a) and then paste the macro (Ctrl + v).
You should then be able to run the macro.

Hi,

what is the syntax for the ("Book2.xlsx").

Do I need to enter the full root of the file, e.g. user/desktop/book2.xlsx;

or just the open workbook ("Book2.xlsx")

I'm having the same problem as Ahmedin. any help would be appreciated. Thanks

Please how do i use this code, what are the procedures to implement so as to make it work.