For N = 1 To ActiveWorkbook.Names.Count
On Error Resume Next
s1 = ActiveWorkbook.Names(N).Name
s2 = ActiveWorkbook.Names(N).RefersToR1C1
ThisWorkbook.Names.Add Name:=s1, RefersToR1C1:=s2
Next
On Error Resume Next
s1 = ActiveWorkbook.Names(N).Name
s2 = ActiveWorkbook.Names(N).RefersToR1C1
ThisWorkbook.Names.Add Name:=s1, RefersToR1C1:=s2
Next