Присвоение значения ячейки глобальной константе (пременной)

[Magnetic Air]

Есть несколько книг, имена которых записаны в константы:

Public Const TekGod = "2012"
Public Const Jurnal = "журнал регистрации " & TekGod & ".xls"

Есть много процедур, которые ссылаются на эти константы.
Так как имена со временем меняются и чтобы не лезть в код и не менять их вручную, хотел было перенести все имена в отдельный скрытый лист и менять их через UzerForm, но при присвоении с листа значения ячейки с именем книги EXCEL ругается:

Public Const Путь1ПФП As String = ThisWorkbook.Sheets("Н").Range("A1").Value

Подсткажите как можно это обойти

[Step_UA]

это уже не константы ...

Public Путь1ПФП As String, Jurnal as String
...
Private Sub Workbook_Open() 
  ' при открытии книги производите инициализацию переменных
  Путь1ПФП= ThisWorkbook.Sheets("Н").Range("A1").Value
  Jurnal="журнал регистрации " & Year(date) & ".xls"
End Sub

[Magnetic Air]

Спасибо
Тоже думал так сделать, хотел обойтись малой кровью...
А еще варианты есть?

[Казанский]

С константами - нет. Значения констант задаются при компиляции. Компилятору недоступны не только объекты приложения, но и "родные" функции:

Const LINEFEED = Chr(10) 'не работает!

Другой путь - определить имена в книге и использовать их в коде как [TekGod], [Jurnal].

[Magnetic Air]

В итоге все константы стали переменными, которые инициализируются в отдельной процедуре, а процедура загнана в

Private Sub Workbook_Open()

При смене переменных процедура вызывается заново.
Всем спасибо!