Excel - Macro para grabar automaticamente

Hola espero que puedan ayudarme, como puedo crear una macro que al momento de ejecutarla me grabe el archivo con un nombre distinto, por ejemplo:

Tengo un archivo llamado Vale 1, cuando lo abro y lo modifico quiero que automáticamente se guarde pero ya con el nombre de Vale 2, y si abro otro archivo y lo modifico y ejecuto la macro que me lo guarde como Vale 3 y asi sucesivamente, por fa como puedo hacer eso.

El nombre del archivo actual lo tienes en

Nombre = ThisWorkbook.Name

Trata la variable Nombre para crear Nuevonombredelfichero

Para grabar con otro nombre

ActiveWorkbook.SaveAs Filename:=Nuevonombredelfichero, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False , CreateBackup:=False

Saludos