Numeración secuencial

[JoaoM]

Ya logre eliminar la macro, OK pero me queda la llamada a la macro en Private Sub Workbook_BeforeClose(Cancel As Boolean)

Macro que elimina y me da la opcion para Guardar como

Sub Mymacro()
Dim vbCom As Object
Dim Mensaje, Estilo, Título, Respuesta, MiCadena
Mensaje = "¿Estas seguro de querer eliminar la macro?" & vbCr & "Si responde SI, no tiene vuelta atraz" & vbCr & "la macro se eliminara por siempre"
Estilo = vbYesNo + vbCritical
Título = "Advertencia"
Respuesta = MsgBox(Mensaje, Estilo, Título)
If Respuesta = vbYes Then
MiCadena = "Sí"
Else
MiCadena = "No"
Exit Sub
End If
Set vbCom = Application.VBE.ActiveVBProject.VbComponents
vbCom.Remove VBComponent:=vbCom.Item("Módulo1")

Application.Dialogs(xlDialogSaveAs).Show
End Sub

Llamada a la macro en Private Sub Workbook_BeforeClose(Cancel As Boolean) Esto para despues que rellene el presupuesto, pueda Eliminar la macro del Modulo1 y Guardar como.
Darle el nombre del cliente y guarda el presupuesto ya sin la macro, ESTE PROCESO LO HACE BIEN pero tengo el inconveniente de que queda la llamada en

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Hoja1.Name <> "Presupuesto" Then Hoja1.Name = "Presupuesto"
Mymacro
End Sub

Lo rojo quisisera que se eliminara tambien junto con el modulo de la macro Mymacro, ¿PORQUE?

Cuando el cliente reciba el presupuesto y lo aibra, lo imprime (si acaso) y lo vuelve a cerrar, AL CERRARLO le dá un error porque la llamada no encuentra la macro.

Pueden ayudarme?

Gracias