Error '424' object required

Hola, buenas tardes:
Pues bien, les posteo parte de mi código con el que estoy trabajando, que al ejecutarlo, me manda error en una línea (en el código se las marco) sé que parece mucho código pero realmente es repetitivo (no soy muy buena optimizando código, son mis pininos en vba), básicamente lo que hace es copiar una hoja al libro actual (de un archivo) y vaciarle unos datos previamente guardados en arreglos en celdas correspondientes, ojalá que me puedan ayudar pues ya llevo rato y nada , desde ya, gracias!.

k = 1
For i = UBound(id) To LBound(id) Step -1
Dim milibro As Object
Set milibro = ActiveWorkbook
Workbooks.Open Filename:="C:\Users\FLOPEZ\Desktop\FO-RH23-2.xls"
'Set milibro = Workbooks.Open(Filename:="C:\Users\FLOPEZ\Desktop\FO-RH23-2.xls")
If (fec_cheq(i)) <> Empty And (fec_ret(i)) <> Empty Then
Set milibro = ActiveWorkbook
Workbooks.Open Filename:="C:\Users\EFACCI\Desktop\FO-RH23-2.xls"
Sheets("Checadas").Select
Sheets("Checadas").Copy after:=milibro.Sheets(k)
k = k + 1
milibro.Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("D6").Value = nombre(i)
Range("C8").Value = id(i)
Range("G8").Value = n1
Range("C20").Value = fec_cheq(i)
ActiveSheet.Name = id(i) & "Cheq."
Windows("FO-RH23-2.xls").Activate
ActiveWindow.Close
Set milibro = ActiveWorkbook
Workbooks.Open Filename:="C:\Users\EFACCI\Desktop\FO-RH23-2.xls"
Sheets("Checadas").Select
Sheets("Retardos").Select
Sheets("Retardos").Copy after:=milibro.Sheets(k)
milibro.Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
k = k + 1
Range("D6").Value = nombre(i)
Range("C8").Value = id(i) & "Ret."
Range("G8").Value = n1
Range("C20").Value = fec_ret(i)
Range("B31").Value = tiempo_ret(i)
ActiveSheet.Name = id(i) & "Ret."
Windows("FO-RH23-2.xls").Activate
ActiveWindow.Close
Else
' Set milibro = ActiveWorkbook
If (fec_cheq(i)) <> Empty And (id(i)) <> Empty Then
Set milibro = ActiveWorkbook
Workbooks.Open Filename:="C:\Users\EFACCI\Desktop\FO-RH23-2.xls"
Sheets("Checadas").Select
Sheets("Checadas").Copy after:=milibro.Sheets(k)------------aqui manda el debug
milibro.Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
k = k + 1
Range("D6").Value = nombre(i)
Range("C8").Value = id(i)
Range("G8").Value = n1
Range("C20").Value = fec_cheq(i)
ActiveSheet.Name = id(i) & "Cheq."
Windows("FO-RH23-2.xls").Activate
ActiveWindow.Close
Else
If (fec_ret(i)) <> Empty And (id(i)) <> Empty Then
Set milibro = ActiveWorkbook
Workbooks.Open Filename:="C:\Users\EFACCI\Desktop\FO-RH23-2.xls"
Sheets("Retardos").Select
Sheets("Retardos").Copy after:=milibro.Sheets(k)
milibro.Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
k = k + 1
Range("D6").Value = nombre(i)
Range("C8").Value = id(i) & "Ret."
Range("G8").Value = n1
Range("C20").Value = fec_ret(i)
Range("B31").Value = tiempo_ret(i)
ActiveSheet.Name = id(i) & "Ret."
Windows("FO-RH23-2.xls").Activate
ActiveWindow.Close
End If
End If
End If
Next

0

Añade tu respuesta

Haz clic para o