Estimados, Estoy tratando de hacer una macros que me permita abrir todos los archivos de una carpeta, copiar una casilla y pegarla en la tabla de otro archivo, pero al ejecutar me lanza el error previamente mencionado. Si alguien me puede ayudar en esto estaría muy agradecido. Saludos!

Option Explicit

Sub Open_All_Files()

Dim oWbk As Workbook

Dim sFil As String

Dim sPath As String

sPath = "C:\Users\User\Desktop\Respaldo Periodo Felipe 08-03-2012\TERPEL\Planillas TERPEL\checkist total\"

ChDir sPath

sFil = Dir("*.xlsx")

Do While sFil <> ""

oWbk = Workbooks.Open(sPath & "ID1 ISLA BILBAO.xlsx")

ThisWorkbook.Activate

Sheets("Isla").Select

With ActiveSheet

.Range("G10:J10").Select

Selection.Copy

End With

Windows("Ranking Checklist.xltm").Activate

Sheets("Hoja3").Select

With ActiveSheet

.Range("B2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

End With

ActiveCell.Offset(1, 0).Select

oWbk.Close True

sFil = Dir

Loop

End Sub

Saludos.

Con un adjunto seria mas facil.

Atte.

joshua