Правильное объявление глобальных констант

[ymnuhj]

Константы должны использовать при открытии книги и при выполнении процедур находящихся в модулях и листах. Пробовал по всякому их задавать но безуспешно.

В ThisWorkBook

Option Explicit


Public Sub Workbook_open()

Const n1 = "a"
Const n2 = "b"
Const n3 = "c"

Sheets(n2).Select

End Sub

B Module3

Sub qw()

Sheets(n3).Select

End Sub

Подскажите пожалуйста как правильно задать их с одного раза чтоб действовали во всей книге.

[EducatedFool]

Проще обойтись без глобальных переменных, задав листам кодовые имена.



Тогда и код упростится:

Public Sub Workbook_open()
    n2.Select
End Sub

Sub qw()
    n3.Select
End Sub

Пример в файле: http://excelvba.ru/XL_Files/Sample__...__22-31-51.zip

[ymnuhj]

Этого я не знал. Спасибо. Выглядит очень удобным вариантом.

Однако в некоторых процедурах ход зависит от того какой лист активен. Если бы я использовал "настоящие" имена (через константы) то мог бы обойтись следующей функцией.

If Active.Worksheet.Name = n3 Then
код
End If

Но с кодовыми именами она не работает. Как выполнять проверку активного листа в данном случае?

[The_Prist]

If Activesheet.CodeName = "n3" Then
'код
End If

[ymnuhj]

Спасибо огромное

[EducatedFool]

Ещё вариант (при использовании кодовых имен):

If n3 Is Activesheet Then
'код
End If