Jose L Leon Q

Sub Impresión_Recibos() Dim i As Integer Dim ruta, nbreLibro As String ruta = "C:\Aplicacion Nómina\Nomina Diaria.xlsm" If MsgBox("Esta seguro de Imprimir todo", vbYesNo, "Mensaje especial") = 6 Then For i = 2 To Worksheets("Nómina").Range("A" &...