Este código do VBA copia todos os nakms da pasta de trabalho ativa para o destino. Não tenho certeza do que você está tentando fazer, mas isso deve começar:
Sub Copy_All_Defined_Names()
' Loop through all of the defined names in the active
' workbook.
For Each x In ActiveWorkbook.Names
Workbooks("Destination.xls").Names.Add Name:=x.Name, _
RefersTo:=x.Value
Next x
End Sub
daqui: link