Текущо номериране

Здравейте,


Въпроса ми е за ексел:
Как да направя автоматично да ми номерира следващия отворен документ.
Примерно
Изготвям протокол номер едно запазвам го.След това автоматично при отваряне на фаила да променя номера на протокола на две.
Малко объркано , но се надявам да сте ме разбрали и да можете да съдействате.

Благодаря предварително

Поздрави

Например така

Private Sub Workbook_Open()

  Range("B1") = Range("B1") + 1

End Sub

B1 - клетка с № на протокола