Problemas con macro para copiar todos los nombres entre libros excel.

[charlesc]

Hola Amigos,

Tengo un libro con aproximadamente 100 nombres, que tengo que transferir a unos 90 libros excel ya realizados, pero que

no tienen nombres.

He hecho esta macro, pero me dá errores con los ..!Print_Area y ..!FilterDatabase.

Como sería posible limpiar los libros de estos tipos de nombres?

Sub copiar_nombres()

' copia los nombres de libro_origen a libro_destino

Dim n As Name

Dim libro_origen As Workbook

Dim libro_destino As Workbook

Set libro_origen = Workbooks("libro con nombres.xls")

Set libro_destino = Workbooks("libro sin nombres.xls")

For Each n In libro_origen.Names

libro_destino.Names.Add n.Name, n.RefersTo

Next n

End Sub

Muchas gracias.

[Invitado Cacho R]

El tema lo tienes prácticamente resuelto aquí:

--> COMO TRANSFERIR NOMBRES DE UN LIBRO EXCEL A OTROS LIBROS. .