Corregir la macro que se adjunta

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" & Rows.Count).End(xlUp).Row

        If Worksheets("Nómina").Cells(i, 1).Value <> 0 Then

            Worksheets("Recibo de Pago").Range("B5") = Worksheets("Nómina").Cells(i, 1).Value

            Sheets("Recibo de Pago").PrintOut Copies:=1, Collate:=True

        End If

    Next

ActiveWindow.Application.ActiveWorkbook.Save

End If

End Sub

Sera posible corregir esta macro para que me cambie a medida que el nombre cambie

Saludos

Tengo otras pregunta

Quiero pulirme en macros

JL