Не могу понять из-за чего возникает ошибка Run-time error 424 Object Required. - VB

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

Добрый день.
Возникает ошибка Run-time error 424 Object Required.
Я подозреваю, что это связанно с названием книги, в таких строках в функции, где я использую Namebook1:

If Namebook1.Worksheets(1).Cells(14, NumMount + 10).Value = StrCPPMonth Then ' Находим месяц

Я прикрепил файл, где я тестирую данный код.
имя книги Namebook1, я присваиваю и он передает его в функцию, но вот можно ли данное имя вообще потом использовать в коде и понимает ли его VBA?
Прикрепляю файл, и следующим письмо еще один файл. Так два тут прикрепить нельзя.
Работают они так - Через файл "Взять данные из другой книги2", нажать на ячейку СРР и просто открыть "Сырье1".
и он найдет то что ему нужно в в книге "Сырье1" и отправиться в функцию(она вынесена на отдельный модуль) и начнет добавлять найденные данные в книгу "Взять данные из другой книги2". На это месте выскакивает ошибка.

Решение задачи: «Не могу понять из-за чего возникает ошибка Run-time error 424 Object Required.»

textual
                            Листинг программы 
                        
                            Dim Namebook1 As Variant
Namebook1 = "blablabla"
Msgbox Namebook1.Worksheets(1).Cells(1, 1).Value