Numeración secuencial

[JoaoM]

Gracias por la colaboracion.
Te pido si pudieras darme alguna luz sobre la macro, es decir, comentarios sobre las lineas, si puedes y ves que no hay inconveniente.

esto con la idea de que yo pueda decirte si o no es lo que busco, de todas todas, la voy a ejecutar y vere.

Gracias

La ejecute, no vi que hiciera algun cambio, esto con mi nombre de usuario en la PC, si cambio el nombre en la macro, tampoco me hace nada.

La idea que tengo es que use quien use la plantilla, esta al cerrar o, DESPUES de Guardar como:, me ELIMINE el modulo1 y la llamada en
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Hoja1.Name <> "Presupuesto" Then Hoja1.Name = "Presupuesto"
Mymacro
End Sub

Si lees mi post anterior al tuyo, veras y comprenderás lo que necesito.

Gracias de todos modos por el empeño de ayudarme