Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
Necesito una macro que me compare el nombre de hojas en dos archivos diferentes.
Sin embargo los nombre no son iguales sino que son equivalencias.
En el archivo "A", las hojas se llaman Alemania y Francia.
En el archivo "B", las hojas se llaman DE y FR.
Cuando encuentre el nombre que corresponde copio un rango de un archivo al otro.
No sé si hay que hacerlo con equivalencias, variables ... ... gracias !!