Numeración secuencial

[JoaoM]

Editado:

Tengo un libro (plantilla) con una celda en la que existe un numero y cada ves que se abre el libro, dicho numero va cambiando secuencialmente + 1 y se autoguarda.

Private Sub Workbook_Open()
Range("I3").Select
Range("I3") = ActiveCell + 1
'Linea valida de Elsa Sheets(1).Range("i3").Value = Sheets(1).Range("i3").Value + 1
ActiveWorkbook.Save
End Sub

Esto con el fin de que la plantilla (libro-origen) SE VAIA AUMENTANDO + 1 cada ves que se abre.

Relleno el libro con los datos necesarios y luego lo Guardo como para tener un respaldo con el nombre del cliente y enviarselo.

Mi pregunta es:

Macro para que al Guardar como: elimine o inutilise la macro DEL LIBRO con nombre del cliente.

La idea es que numericamente esta macro

Private Sub Workbook_Open()
Range("I3").Select
Range("I3") = ActiveCell + 1
ActiveWorkbook.Save
End Sub

no actue cada ves que el cliente tenga que abrir el libro y el numero que tenia cuando lo guarde como se mantenga