Excel Cuenta al siguiente número en la celda cuando se abre el documento

Estoy tratando de hacer un documento de Excel que cuente hasta el siguiente número en una celda cada vez que se abre el documento. ¿Hay alguna manera? Apreciaría cualquier ayuda.

Necesita un evento que activará el proceso de conteo. Hasta donde yo sé, esto solo se puede hacer con VBA. Pero eso no es difícil.

1. Abra Excel y el editor de VBA con ALT + F11

2. Coloque este código debajo de ThisWorkbook

   Private Sub Workbook_Open()
       Sheets(1).[A1] = Sheets(1).[A1] + 1
   End Sub
   

Cada vez que abra su Libro de trabajo, contará un contador en la celda A1 en la primera hoja.

Solo para los geeks. Incluso es posible ocultar el contador dentro de su código VBA. Coloque este código en ThisWorkbook y vea qué sucede si vuelve a abrir su libro de trabajo.

Const counter = 1

Private Sub Workbook_Open()
    countUP = Mid(ActiveWorkbook.VBProject.VBComponents(1).CodeModule.Lines(1, 1), 17) + 1
    Application.VBE.CodePanes(1).CodeModule.ReplaceLine 1, "Const counter = " & countUP
End Sub