Numeración consecutiva de registros

[Rogeliobus]

Buenos dias amigos:

les expongo mi siguiente inquietud:

tengo el siguiente codigo:

Private Sub UserForm_Initialize()

Range("Idconsecutivo") = Range("Idconsecutivo") + 1

Me.TxtIdregistro = Range("Idconsecutivo")

End Sub

esto lo que hace es brindarme el consecutivo del siguiente registro a grabar, pero tengo el problema que si no grabo los datos correspondientes y cancelo la pantalla donde estoy grabando, el consecutivo que me brinda el codigo queda grabado y lo que quiero es que me quede el numero anterior.

agradeciendo por su ayuda, les saludo

[tese1969]

Adjunta un archivo ejemplo.........normas del foro.......

Un saludo,

Tese