Quien me pueda ayudar con esta macro

Amigos estoy tratando de trabajar con una macro que encontré pero al ejecutarla tengo problemas con la orden chdir ruta, lo que busco es los siguiente en una carpeta llamada control tengo 300 libros cada uno con 4 hojas estoy tratando de juntar la primera hoja de cada libro en otra hoja llamada resumen.

Sub libros()
'Lee archivos del directorio
'Por.Dam
'Copia una hoja
ruta = "C:\perfiluser\desktop\Rendiciones\"
ChDir ruta
hoja = "Créditos Cancelados"
archi = Dir("*.xls")
Set actual = Workbooks("rendiciones")
On Error Resume Next
Do While archi <> ""
Workbooks.Open archi
Sheets(hoja).Cells.Copy
If Err.Number = 0 Then
actual.Activate
Worksheets.Add
ActiveSheet.Paste
Else
Err.Number = 0
End If
Application.DisplayAlerts = False
Workbooks(archi).Close
Application.DisplayAlerts = True
archi = Dir()
Loop
Application.DisplayAlerts = False
Workbooks(archi).Close
Application.DisplayAlerts = True
End Sub