d2enri respondió:
Pega este código en thisworkbook dentro del editor de proyectos Private Sub Workbook_Open() Sheets("Hoja1").Select [a1].Value = [a1].Value + 1 End Sub Con esto cada vez que abras el archivo te suma 1 en A1 de la hoja1 ajusta el rango a tus...