Sub execute()
    Dim b As BKSI
    Dim val
    
    Set b = New BKSI
    b.init
    val = b.test1
    val = b.test2
    
    Set lst = b.getKeys
    Set lst = b.getKeys     'Кэш
    
    For Each k In lst
        ' КАК ОБРАТИТЬСЯ К СВОЙСТВУ ОБЬЕКТА КЛАССА
        ' ПО ЗНАЧЕНИБЮ ПЕРЕМЕННОЙ
        'b(k) = "For Each"
    Next

End Sub

Private pTest1Private pTest2


Private listKeys As Collection


Public Function init() As Boolean
    pTest1 = "init1"
    pTest2 = "init2"
End Function



Public Property Get test1()
    test1 = pTest1
End Property
Public Property Let test1(val)
    pTest1 = val
End Property



Public Property Get test2()
    test2 = pTest2
End Property
Public Property Let test2(val)
    pTest2 = val
End Property



Public Function getKeys() As Collection
    If Not listKeys Is Nothing Then GoTo EndFn
    Set lst = New Collection
    lst.Add "test1"
    lst.Add "test2"
    
    Set listKeys = lst
EndFn:
    Set getKeys = listKeys
End Function

If Target.MergeCells <> False Then          'есть состояние  NULL
  или
If Not (Target.Comment Is Nothing) Then

If Target.Count >= 5000 Then GoTo Erreble

'---------------------------------------------------------------------------------------
' Module    : Лист1
' DateTime  : 23.11.2009 11:02
' Author    : The_Prist
' Purpose   : http://www.planetaexcel.ru/forum.php?thread_id=11528
'             Отображение примечания при активации ячейки.
'             Тема: Как настроить примечания ?
'             Автор: ksmspb
'---------------------------------------------------------------------------------------
'   https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=154115
'   BKSI доработка:
'      - Не используется цикл для выключения комментариев
'      - Позиционирует примечание в правом верхнем углу
'      - Автоматически корректирует размер по наполнению текста
'      - Исправлен баг со вставкой строк\колонок в "объединённых ячейках"
'---------------------------------------------------------------------------------------

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim oComment As Comment
    Application.EnableEvents = False
    Application.ScreenUpdating = False

    Application.DisplayCommentIndicator = xlCommentIndicatorOnly

    If Target.Count >= 5000 Then GoTo EndFn

    If Not (Target.Comment Is Nothing) Then
        Set oComment = Target.Comment
'   Target.MergeCells есть состояние  NULL (клик по навигации)
    ElseIf Target.MergeCells <> False And Not (Target.Cells(1).Comment Is Nothing) Then
        Set oComment = Target.Cells(1).Comment
    Else
        GoTo EndFn
    End If

    oComment.Shape.Top = Target.Top
    oComment.Shape.Left = Target.Left + Target.Width + 10
    oComment.Shape.TextFrame.AutoSize = True
    oComment.Visible = True

EndFn:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

                ' If Application.CutCopyMode Then
                    ' BuferData = Данные которые были скопированы на страничке в EXEL
                ' End If
    
    With Application
        ' ЗАТЫЧКА. если было выполнено копирование - выход
        ' If .CutCopyMode Then Exit Sub
    
        Set Sh = ActiveSheet
        If (Sh.Name = "НАВИГАЦИЯ") Then Exit Sub
        
        .ScreenUpdating = False
        .EnableEvents = False
        
        Sheets("НАВИГАЦИЯ").Move Before:=Sheets(1)
        Sh.Move Before:=Sheets(2)

        .EnableEvents = True
        .ScreenUpdating = True
    End With
   
                ' If BuferData then
                    ' Вставить обратно данные в буфер
                ' End If

End Sub  

'-------------------------------------------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        
        If Sheets("НАВИГАЦИЯ").Index <> 1 ThenSheets("НАВИГАЦИЯ").Move Before:=Sheets(1)

        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub