Saberexcel - o Site das Macros
Essas macros do Aplicativo Microsoft Excel VBA, incrementa e decrementa um determinadado número em um célula escolhida, neste exemplo de planilha foi feito para execução da macro manualmente, mas você poderá inserir no Evento Auto_Open do Objeto Workook, ao abrir incrementa mais um número.

Sub Incrementa_autonumeracao()
Dim ValVelho As Integer
Dim ValNovo As String

'retorna o valor corrente (atual)
ValVelho = Sheets("Autonumeracao").Range("A2").Value
ValNovo = Format(ValVelho + 1, "0000")

'insere o novo valor na celula(A2)
Sheets("Autonumeracao").Range("A2").Value = "'" & ValNovo
End Sub


Essa macro decrementa o número na célula (A2)
Sub Decrementa_autonumeracao_manual()
Dim ValVelho As Integer
Dim ValNovo As String

'retorna o valor corrente (atual)
ValVelho = Sheets("Autonumeracao").Range("A2").Value
ValNovo = Format(ValVelho - 1, "0000")

' insere o novo valor na celula(A2)
Sheets("Autonumeracao").Range("A2").Value = "'" & ValNovo
End Sub

Aprenda Tudo Sobre o Aplicativo Microsoft Excel VBA - Saber Excel