Consolidación de archivos de Excel.

... ahora los libros a consolidar son... en la version 2007 Y habilitados para macros ".xlsm"
... utilizando el grabador de macros consolidando un archivo abierto y funciona perfectamente
... una vez que cierro el archivo consolidado, el grabador de macros tampoco logra consolidar dicho archivo...

1) los errores de tipo "-2147xxxx" significan que el objeto/proveedor/... al que se esta llamando NO esta "disponible"
(...)
3) en tus pruebas (en 2007) no era posible "ver" la causa del error por el (ab)uso de instrucciones On Error Resume Next
OJO: aun ahora, (creo que) hay una instruccion para no mostrar las alertas: -> Application.DisplayAlerts = False -???-

4) por si las dudas... he corrido pruebas (en 2007) y el metodo sigue funcionando (como en las versiones anteriores)
=> SIN abrir los libros que se van a consolidar

hola, Guillermo !

> ... ahora los libros a consolidar son... en la version 2007 Y habilitados para macros ".xlsm"
> ... utilizando el grabador de macros consolidando un archivo abierto y funciona perfectamente
> ... una vez que cierro el archivo consolidado, el grabador de macros tampoco logra consolidar dicho archivo...

(primero): dejame insistir en lo siguiente:
>> 1) los errores de tipo "-2147xxxx" significan que el objeto/proveedor/... al que se esta llamando NO esta "disponible"
>> (...)
>> 3) en tus pruebas (en 2007) no era posible "ver" la causa del error por el (ab)uso de instrucciones On Error Resume Next
>> OJO: aun ahora, (creo que) hay una instruccion para no mostrar las alertas: -> Application.DisplayAlerts = False -???-
>>
>> 4) por si las dudas... he corrido pruebas (en 2007) y el metodo sigue funcionando (como en las versiones anteriores)
>> => SIN abrir los libros que se van a consolidar

(segundo): dentro de las -posibles- causas de que un objeto/proveedor/... NO este "disponible" (en concreto con tus codigos)...
-> haces unos cambios de directorio activo (ChDir)
a) a un directorio local: -> ChDir "C:\Cebreros\ExpeDiente\Estados de Cuenta"
b) a una carpeta en red > ChDir "\\Clínica\C\Cebreros\ExpeDiente\Estados de Cuenta"
-> que me dices de la carpeta en red ? (permisos/derechos, cambios de "mapeo", desconexion con el serrvidor, ???)

(tercero): considera que no es lo mismo, usar el grabador de macros, con los libros de origen abiertos... que cerrados -?-

(cuarto): es probable que las causas sean otras -?- pero con los detalles (des)conocidos hasta ahora (p.e.)
-> el cambio de excel 2003 al 2007, tambien implico algun cambio de pc/usuario/equipo/servidor/... -???-

comentas (si detectas) algun detalle mas... "descriptivo" ?
saludos,
hector.

Sub ConsolidarSlds()
Dim miSaldo As Excel.Application
With miSaldo
Dim miHoja As Worksheet
Set miHoja = Worksheets.Add
ChDir "C:\Cebreros\ExpeDiente\Estados de Cuenta"
Worksheets("Consolidar Saldos").Delete
miHoja.Name = "Consolidar Saldos"
Range("A1").Select
Selection.Consolidate Sources:="'[*.xlsm]Saldos'!R4C1:R10C2",

Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Range("A1").Select
ActiveCell.FormulaR1C1 = "Cuenta"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Paciente"
Range("A1").Select
Selection.AutoFormat Format:=xlRangeAutoFormatList1, Number:=True,

End With
End Sub

... estuve realizando pruebas con respecto a tu ultimo comentario y te menciono los resultados:
1.- Me ha ayudado mucho el retirar "On Error Resume Next"
2.- El retirar "Application.DisplayAlerts = False" tambien fue de gran ayuda ya que hizo darme cuenta que
deberia dejar el directorio ("C:\Cebreros\ExpeDiente\Estados de Cuenta") unicamente con los archivo a consolidar.
3.- El codigo finalmente quedo de la siguiente manera: (...)
Los resultados desafortunadamente siguen siendo los mismos y realmente no encuentro la causa.
Al momento que cambio el nombre del archivo "[Cebreros Sierra Guillermo.xlsm]Saldos' " por el de "[*.xlsm]Saldos'"
y cierro el/los archivos a consolidar, aparece el error que ya te he mencionado.
Curiosamente tambien Excel queda completamente trabado o congelado y me veo forzado a utilizar Ctrl+Alt+Supr.

> Sub ConsolidarSlds()
> Dim miSaldo As Excel.Application
> With miSaldo
> Dim miHoja As Worksheet
> Set miHoja = Worksheets.Add
> ChDir "C:\Cebreros\ExpeDiente\Estados de Cuenta"
> Worksheets("Consolidar Saldos").Delete
> miHoja.Name = "Consolidar Saldos"
> Range("A1").Select
> Selection.Consolidate Sources:="'[*.xlsm]Saldos'!R4C1:R10C2", Function:= _
xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=True
> Columns("A:A").EntireColumn.AutoFit
> Columns("B:B").EntireColumn.AutoFit
> Range("A1").Select
> ActiveCell.FormulaR1C1 = "Cuenta"
> Range("B1").Select
> ActiveCell.FormulaR1C1 = "Paciente"
> Range("A1").Select
> Selection.AutoFormat Format:=xlRangeAutoFormatList1, Number:=True, Font:= _
True, Alignment:=True, Border:=True, Pattern:=True, Width:=True

End With
End Sub