Excel - actualización de folio

hola..!!! espero que estén todos bien... alguien me puede ayudar por favor, tengo un formato de recibos que cree en excel pero quiero ver como se actualiza automáticamente cada vez que abra el archivo el numero de folio en la columna x....

Suponiendo que el folio se encuentra en A1, en el objeto ThisWorkbook yo pondria el siguiente codigo:

Private Sub Workbook_Open()
Dim L As Long
L = Range("A1").Value
Range("A1").Value = L + 1
End Sub

Tambien agregaria validacion de datos en la celda A1 de modo que solo acepte valores numericos.

Saludos.