Hi
this macro takes all the range names in the active workbook and applies them to the same sheets and ranges in every open workbook. Note that the sheet names will have to be the same in the source and destination workbooks for this to work.
Sub range_names_copy()
Dim rng As Name, ww As Window, ThisW
ThisW = ActiveWindow.Caption
For Each rng In ActiveWorkbook.Names
For Each ww In Windows
If ww.Caption <> ThisW And ww.Visible = True Then
Workbooks(ww.Caption).Names.Add Name:=rng.Name, RefersTo:=rng
End If
Next ww
Next rng
End Sub
Bookmarks