Hola tu problema no es tan terrible pero si se necesitará algo de trabajo.
Yo lo haría así:
Si no lo has hecho mueve todos tus libros a una misma carpeta y espero ademas que le hallas puesto nombres inteligibles (aunque esto no es tan importante).
1)Crea un nuevo libro en esa carpeta.
2)En una hoja has la lista de los nombres de libros a abrir en una columna.
Digamos A:A
3) Ahora por medio de un bucle chiquito voy abriendo cada libro y ejecuto tu macro, cuidando de a que libro hago referencia, es decir, en cual leo y en cual escribo.
4) Me tomo un merecido descanso...
Bueno lo de abrir cada libro lo haces asi:
Código:
....
Inicia Bucle
NombreArchivo = El nombre del archivo quieres abrir
set MiLibro = workbooks.Open(NombreArchivo)
...
El código para ejecutar tu macro...
...
MiLibro.close
Termina Bucle
Bueno trata con esto y cualquier cosa no dudes en preguntar, como te dije requerirá trabajo.