Cambiar nombre de macro automáticamente

Saludos.
Resulta que tengo el siguiente código:
Workbooks.Open Filename:="C:\RC.xlsx"
Application.ScreenUpdating = False
Range("B2:H43").Copy
Workbooks("Formato.xlsm").Activate
Sheets.Add AFTER:=Sheets(Sheets.Count)
ActiveSheet.[b2].PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Range("D10").Select

Dia con dia el libro llamado formato cambia de nombre y al ejecutar la
macro ya no funciona porque tengo que cambiar el nombre en la linea
Workbooks("Formato.xlsm").Activate
como puedo hacer para que el nombre formato cambie automáticamente cuando yo guarde el archivo con un nombre diferente?