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
Tengo una parte de la macro que por MsgBox se tiene que seleccionar un archivo (hasta aquí funciona)
Do While Olb <> 1
MsgBox "Selecciona archivo ", , ""
Olb = Application.GetOpenFilename
If Olb <> "Falso" And Olb <> "" And Olb <> 1 Then Exit Do
Loop
Pero cuando de ese libro que se ha abierto tengo que seleccionar diferentes hojas y luego copiar, me falla en esta linea:
Workbooks.Open(Olb).Sheets(1).Copy After:=Workbooks(2).Sheets(3)
Me podríais ayudar a encontrar la solución
Saludos