Copiar hojas en archivo creado por una macro

Buen día Expertos desearía que alguien me apoyara en lo siguiente: tengo que realizar el análisis y ordenamiento de mas de 30 archivos,de los cuales se crea un concentrado de la información el cual realizo con una macro, la macro crea un libro destino el cual se renombra automáticamente con el nombre que se asigna, el cual varia constantemente, MI PROBLEMA es en el momento de copiar los datos de libro origen al libro destino, en virtud de que utilizo la variable al crear el libro destino, espero poder haberme dado a entender y dejo el código que utilizo, pos su apoyo GRACIAS
Sub Proceso_Compacta()
RUTA = ThisWorkbook.Path
día = Day(Date)
mes = Month(Date)
año = Year(Date)
'Cuenta cuantos libros abiertos existen
If Application.Workbooks.Count > 1 Then
Count = Application.Workbooks.Count
MsgBox "hay " & Count - 1 & " Libro(es) Abierto(es) a PROCESAR", vbExclamation, "R.M.L.P. ®"
GoTo Brinco
Else
MsgBox "No hay ningún archivo abierto para procesar", vbExclamation, "R.M.L.P. ®"
End If
Exit Sub
Brinco:
'Inserta libro nuevo para realizar CONCENTRADO
Workbooks.Add
®.Show 'aquí se capturan datos del nombre que llevara el archivo en un TextBox1_Change
nbre = "Concentrado " & ActiveSheet.Range("A1") & ", " & día & "-" & mes & "-" & año & ".xls"
ActiveWorkbook.SaveAs RUTA & "\" & nbre
'Se establece un bucle para trabajar con los archivos abiertos
count2 = 1
Do While Count <> count2
'--> aquí se realiza un proceso de ordenamiento de información en el archivo origen
'--> al concluir el ordenamiento se debe de realizar una copia de los datos analizados
'Copia la hoja al libro DE CONCENTRADO
Range("A1").Select
Sheets("Sheet1").Select
'---> AQUÍ ES A DONDE SE ME PRESENTA LA FALLA NO IDENTFICA EL NBRE
 Sheets("Sheet1").Copy After:=Workbooks(nbre).Sheets()
' en caso de haberse copiado correctamente se Renombra la hoja por la especifica a utilizar
With ActiveSheet
.Name = [$C$8].Value
End With
ActiveWindow.WindowState = xlMinimized
--> se cierra el libro utilizado sin guardar cambios
ActiveWorkbook.Close False
count2 = count2 + 1
Loop
Windows("nbre").Activate
ActiveWorkbook.Save
End Sub