Visual Basic para Aplicaciones - Cambio automático nombre libros de excel

Buenas Tardes, tengo una carpeta con libros excel
Antonio_MAR18
Juan_MAR18
Javier_MAR18
SALDOS_03-2018
DEUDORES_03-2018
ACREEDORES_03-2018
Lo que tengo que hacer los días 1 de cada mes, una vez consolidados los datos es cambiar el nombre de los libros ABR18 por MAR18
y
04-20018 por 03-2018
evidentemente es un ejemplo con seis, pero hablamos de 52 libros.
Quisiera una macro que dentro de una carpeta me cambie el nombre de los 52 libros.
Gracias

Mira en la carpeta ThisWorkbook el código.

¿Que hace? cuando cambia de mes al ir a grabar realiza el cambio de nombre y sale un mensaje de aviso.

Adjunto dos ejemplos

Saludos.
\\//_

• Cambio_Mes.zip(29,8 KB)