До тех пор, пока вы можете сохранить шаблон, вы можете сохранить значение в имени (они наиболее часто используются для хранения диапазонов, но могут использоваться для хранения констант).
Когда вы создаете Имя, просто введите значение вместо диапазона в область RefersTo. Тогда вы можете получить доступ к нему, как это:
Sub WhatsTheValue()
Dim intValue As Integer
intValue = Evaluate(ThisWorkbook.Names("NextValue").RefersTo)
ThisWorkbook.Names("NextValue").Value = intValue + 1
MsgBox intValue & vbNewLine & Evaluate(ThisWorkbook.Names("NextValue").RefersTo)
End Sub
Код будет получить текущее значение NextValue Name, присвоить его переменной intValue и сразу увеличиваем имя.
Вам, конечно же, придется сохранять шаблон каждый раз. Это может вызвать проблемы, если несколько человек обращаются к шаблону.
Думаю, вам нужно будет сразу открыть шаблон, обновить значение и затем сохранить его снова. Вы можете, вероятно, получить свой макрос сохранения, чтобы сделать это. Если его единственное значение и только его использование с одного компьютера, сохранение значения в текстовом файле может быть проще – NickSlash