list of named ranges

G

Gary''s Student

If you mean Named ranges, then if we have an active workbook with named
ranges and another open workbook called Book2:

Sub qwerty()
Dim n As Name
For Each n In ActiveWorkbook.Names
t1 = n.Name
t2 = n.RefersTo
Workbooks("Book2").Names.Add Name:=t1, RefersTo:=t2
Next
End Sub

This will only work if the sheet names are the same in both workbooks
 
Top