Error "1004" definido por la aplicación o el objeto

Me han ayudado con una macro que me imprime unas cartas a partir de un listado pero me genrea el siguiente error:
Se ha producido el error "1004" en tiempo de ejecución: error definido por la aplicación o el objeto
adjunto el código para ver si me pueden ayudar pues la verdad no se mucho de macros:
Sub CHECKLIST()
Dim Nombre, Nit, NoCuenta As String
Dim Inicial, Final As Integer
Application.ScreenUpdating = False
Inicial = 18
Sheets("BASE").Select
Sheets("CHECK LIST").Unprotect ("camilo88")
Final = Range("B" & Rows.Count).End(xlUp).Row
For Inicial = Inicial To Final
    Cells(Inicial, "B").Select
    Nombre = Cells(Inicial, "B")
    Nit = Cells(Inicial, "C")
    NoCuenta = Cells(Inicial, "D")
    With Sheets("CHECK LIST")
        .Range("D10") = Nombre
        .Range("D12") = Nit
        .Range("F12") = NoCuenta
        .PrintOut
    End With
Sheets("CHECK LIST").Protect ("camilo88")
Next
Application.ScreenUpdating = True
MsgBox "Proceso Terminado", vbInformation
End Sub