Visual Basic - Problemas al copiar nombres en libros excel.

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.