|
Esta rutina te podría servir:
Sub Macro1()
ActiveSheet.Name = "Hoja1"
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Tienes que crearte un módulo en un nuevo libro y copiar la macro. Posteriormente, en Herramientas-->Macro-->Opciones, le asignas una letra de acceso directo, por ejemplo la x y te vas abriendo tandas de libros. Simplemente con Ctrl + x te irá cambiando el nombre de la hoja y cerrando el libro despues de salvar los cambios.
Ten en cuenta que te cambia el nombre de la hoja activa y el libro activo, si no está seleccionada al abrir el libro, lo tendrás que hacer manualmente.
Ya me dirás si te funciona
|
