Ошибка 438 Объект не поддерживает это свойство или - VB

Формулировка задачи:

Что я хочу сделать. Я хочу открыть книгу Excel, что бы собрать от туда данные.
Книгу что я хочу открывать макросом, все листы имеют имена - "Name". Имя листа к которому мне нужно обратиться Result имя указанное на листе ("Результат"), но его пользователь может изменить. И тогда макрос потеряет путь к нему. По этому мне нужно обратиться именно Rusult
Однако формулировка строки ниже - не работает. Макрос не может найти путь к объекту, но почему?
ActiveWorkbook.Rusult.cells(....) = ошибка 438 Объект не поддерживает это свойство или
Код начинается вот так:

FilesToOpen = Application.GetOpenFilename _
        (FileFilter:="Книга Excel (*.xls*), *.xls*", MultiSelect:=False, Title:="Выберите Excel файл, выбора канала")
 
    If VarType(FilesToOpen) = vbBoolean Then
        'была нажата кнопка отмены - выход из процедуры
        Exit Sub
    End If

Set wb_1 = ActiveWorkbook ' Основная книга
Set wb_2 = Workbooks.Open(FilesToOpen) ' Вторая книга

Namebook1 = wb_1.Name ' имя основной книги.
Namebook2 = wb_2.Name ' Имя книги с афинити.

MsgBox wb_2.Worksheets(1).Cells(2, 1).Value                      ' - Так работает
MsgBox wb_2.Worksheets("Результат").Cells(2, 1).Value        ' - Так работает
MsgBox wb_2.Result.Cells(2, 1).Value                                 ' - А так не работает :((( 

Решение задачи: «Ошибка 438 Объект не поддерживает это свойство или»

textual
                            Листинг программы 
                        

                            For Each ws In wb_2.Worksheets
  If ws.CodeName = "Result" Then Exit For
Next
If ws Is Nothing Then Stop 'не найден лист с кодовым именем Result
MsgBox ws.Cells(2, 1).Value

                        