Error '1004' Ayuda

<span style="font-family: 'Times New Roman'; font-size: 16px;">
<div style="color: #000000; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; background-image: initial; background-repeat: initial; background-attachment: initial; -webkit-background-clip: initial; -webkit-background-origin: initial; background-color: #ffffff; background-position: initial initial; margin: 8px;">hola gfalley tengo es siguiente codigo:
Workbooks.Open Filename:="\\disenio\parts\cotiza\OTI.xls", UpdateLinks:=False, Password:="pablo"
Do While codigo <> Int(TextBox10.Value)
    cont = Workbooks("Consecutivo").Worksheets("Calculos").Range("G11").Value
<span style="text-decoration: underline; -webkit-text-decorations-in-effect: underline;"><span style="font-style: italic;">If Workbooks("OTI").Worksheets("CONTROL").Cells(cont, 1) = Empty Then GoTo 52</span></span>
    If Workbooks("OTI").Worksheets("CONTROL").Cells(cont, 1) <> "" Then
    Workbooks("Consecutivo").Worksheets("Calculos").Range("G11").Value = Workbooks("Consecutivo").Worksheets("Calculos").Range("G11").Value + 1
    cont = Workbooks("Consecutivo").Worksheets("Calculos").Range("G11")
    codigo = Workbooks("OTI").Worksheets("CONTROL").Cells(cont, 1)
    End If
Loop
        'MsgBox (cont)
52      If codigo <> Int(TextBox10.Value) Then
            MsgBox ("No se encontro el codigo")
        End If
ActiveWorkbook.Close True
en la linea subrayada me aparece el siguiente error no se que pueda ser porque el mismo codigo lo utilizo en otra parte y me funciona bien.
error '1004' error producido por la aplicacion o el objeto
Espero me puedan ayudar gracias
Pablo 
</div>
</span>