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
Hola a todos:
Tengo un libro "A" que hace referencia a otros libros (B,C,D etc).
Al abrir mi archivo "A" con esta macro en Thisworkbook se abren de manera automática todos los archivos indicados en la hoja "Open"
Me funciona bien.
Pero si quiero hacer alguna revisión o modificación del archivo "A" siempre abre los demás.
Hay alguna manera de que pueda tener un cuadro (ventana) que me pregunte si quiero o no abrir los demás archivos.
o si debo poner mi macro en un modulo y llamarlo al abrir mi archivo A.
Agradeceré alguna opción para esto.
Muchas gracias
Mariano
Archivo A.xlsm