Частный случай сохранения значения переменной после цикла

'---------------------------------------------------------------------------------------
' Purpose   : Процедура заполнения ячеек на двух листах второй закрытой книги общего пользования на сервере [Динамика ...xlsx]
'             с подтверждением заполнения (выводом результата заполнения в (ячейки первой книги - сейчас) а надо - в MsgBox).
'---------------------------------------------------------------------------------------
 
'Public Результат1  As Range, Результат2 As Range  'объявил Глоб.переменные, должны быть доступны в любой процедуре проекта
 
Sub ЗаполнитьОтчётВФоне()
    Dim Кол_воКлаймов As String        'объявил локальную переменную
    Кол_воКлаймов = Range("AX3")        'значение для переменной беру из листа [Лист1] книги [Шапка_5.xlsm], или из:
'        Кол_воКлаймов = InputBox("Количество отработанных клаймов:", "Заполнение Динамики", "Введите значение", 13000, 6000)  'присвоил переменной значение из InputBox
    
    '    Application.DisplayAlerts = False 'оператор VBA для отключения системных сообщений - не нужен
    '    Application.EnableEvents = False 'оператор VBA для отключения событий [применяется ко всем рабочим книгам одновременно!] - не нужен
    
    Dim wb1         As Excel.Workbook, wb2 As Excel.Workbook        'объявил переменные для книг [Шапка_5.xlsm] и [Динамика..xlsx]
    Set wb1 = Workbooks.Open("C:\Users\Имя\Desktop\Папка1\Шапка_5.xlsm")        ' закомментишь- не работает при открытой книге(?)
    Range("AY3").ClearContents        'не важно зачем
    Application.ScreenUpdating = False        'оператор VBA для отключения обновления экрана (=ускорение), он же фоновый режим(?))
    
    Call IsBookOpen("wbFullName")        ' подключаю функцию проверки на открытость/закрытость книги
    Set wb2 = Workbooks.Open("C:\Users\Имя\Desktop\Папка1\Динамика...xlsx")
    
    Dim sht         As Worksheet        'объявил переменную для листов
    Set sht21 = wb2.Worksheets("декабрь 2024")        'установил ссылку на лист [декабрь 2024] [Динамика..xlsx]
    Set sht22 = wb2.Worksheets("учет декабрь 2024")        'установил ссылку на лист [учет декабрь 2024] [Динамика..xlsx]
    Set sht11 = wb1.Worksheets("Лист1")        'установил ссылку на лист [Лист1] книги [Шапка_5.xlsm]
    
    'РАБОТАЮ ПЕРВЫЙ ЛИСТ--------------------------------------------------------------------------------------------------------
    
    sht21.Activate        'активировал  лист [декабрь 2024] [Динамика...xlsx]
    Dim strAddress  As String        'объявил переменную для адреса ячейки
    Static Результат1 As Range, Результат2 As Range        ' - не помогает, Вывод_Результатов_в_MsgBox пусто
    Dim Rng         As Range        'объявил переменную
    Dim dtToday     As Date        'объявил переменную для СЕГОДНЯ()
    dtToday = Date
    'начинаю искать ячейку по условию:
    Dim Cl          As Range, Iskomoe$        'объявил переменную
    Iskomoe = "Иванов И.И."
    Iskomoe = "*" & LCase(Iskomoe) & "*"
    For Each Cl In Range("B2:B130" & Range("B2").End(xlDown).Row)        ' ... Range("B2:B")... - почему-то не катит
        If LCase(Cl) Like Iskomoe And Cl.Offset(, -1) = dtToday Then Cl.Select        'выделил найденную ячейку
    Next
    
    If Not Intersect(ActiveCell, Range("B4:B130")) Is Nothing Then
        Cells(ActiveCell.Row, 30).Value = Кол_воКлаймов
        Cells(ActiveCell.Row, 30).Select
        strAddress = ActiveCell.Address        '   выделил активную ячейку, она же 'Целевая ячейка1
        Set Результат1 = Range(ActiveCell.Address)        '    Set ! и все равно переменная обнуляется... :(
        Debug.Print "Aдрес актив яч-1 = "; (ActiveCell.Address)
        Debug.Print "Результ-1 = "; Результат1
    End If
    
    sht11.Activate        'активировал  лист [Лист1] книги [Шапка_5.xlsm]
    Range("AY3").Value = Результат1        'сохраняю в ячейку листа [Лист1] книги [Шапка_5.xlsm], а хочу вывести в MsgBox
    Range("AX3").ClearContents        'не важно
    sht21.Activate        'wb2.Sheets("декабрь 2024").Activate ' снова активировал  лист [декабрь 2024] [Динамика...xlsx]
    Set Rng = Range("A1:AQ108").Find(what:=Результат1, LookIn:=xlValues, lookAt:=xlWhole)        'здесь What:=Результат1 — искомое значение, LookIn:=xlValues — поиск по значениям ячеек, LookAt:=xlWhole — полное совпадение.
    If Not Rng Is Nothing Then
        '        MsgBox "Нашли!"
        Rng.Select
    Else
        MsgBox "Не найдено."
    End If
    Range("AR19").Activate        ' отойду в сторонку)
    
    'РАБОТАЮ ВТОРОЙ ЛИСТ----------------------------------------------------------------------------------------------------------
    
    sht22.Activate        'активировал  лист [учет декабрь 2024] [Динамика...xlsx]
    
    For Each Cl In Range("B2:B108" & Range("B2").End(xlDown).Row)
        If LCase(Cl) Like Iskomoe And Cl.Offset(, -1) = dtToday Then Cl.Select
    Next
    
    If Not Intersect(ActiveCell, Range("B4:B108")) Is Nothing Then
        Cells(ActiveCell.Row, 7).Value = Кол_воКлаймов        'Целевая ячейка2
        Cells(ActiveCell.Row, 7).Select
        strAddress = ActiveCell.Address
        Set Результат2 = Range(ActiveCell.Address)
        Debug.Print "Aдрес актив яч-2 = "; (ActiveCell.Address)
        Debug.Print "Результ-2 = "; Результат2
    End If
    
    Set Rng = Range("A1:AQ130").Find(what:=Результат2, LookIn:=xlValues, lookAt:=xlWhole)
    If Not Rng Is Nothing Then
        '        MsgBox "Нашли!"
        Rng.Select
    Else
        MsgBox "Не найдено."
    End If
    Range("A1").Activate        'отойду в сторонку,
    wb2.Worksheets("ноябрь 2024").Activate        'затем вообще на лист [ноябрь 2024] wb [Динамика...xlsx]
    Range("AE11:AQ37").Select        ')
    Workbooks("Динамика.....xlsx").Save        ' сохраняю изменения в wb
    Set wb = Nothing        'удаляю присвоенное значение переменной Workbook
    Workbooks("Динамика .......xlsx").Close SaveChanges:=False        'закрываю wb без сохранения
    Application.ScreenUpdating = True        'включаю обновление экрана.
    
    '    MsgBox "The value of the target cell in the worksheet [декабрь 2024] = " & Результат1
    
    Call Вывод_Результатов_в_MsgBox
    
End Sub
 
Sub Вывод_Результатов_в_MsgBox()
    MsgBox "The value of the target cell in the worksheet [декабрь 2024] = " & Результат1        'при Public - Error 424 Object Required, (Set есть, синтаксис?). При Static - пусто
    'MsgBox "The value of the target cell in the worksheet [декабрь 2024] = " & Результат1 & _
    '    vbNewLine & "Значение целевой ячейки на листе [учет декабрь 2024] = " & Результат2, vbOKOnly, _
    '    "Проверка заполнения ячеек на двух листах файла [Динамика...]"
End Sub

Private Результат1 As Range

MsgBox Результат1.Value

MsgBox Результат1.Value