Использование макроса(Процедуры) в другой книге

with workbook("A").sheets("aa")
   ......................
      with workbook("B").sheets("bb")
         ........................
      end with
end with

Private Sub CommandButton1_Click()
Dim NMonth, i, Ku, Kr As Integer
Dim MasHours()
 
Application.ScreenUpdating = False
Ku = 45
Kr = 14
'Очищаем массив
ReDim MasHours(1 To (Ku + 1), 1 To (Kr + 1))
NMonth = Month("1-" & ComboBox1.Value) 'Перевод имени месяца в его номер
'В первый элемент присваиваем номер выбраноого месяца
MasHours(1, 1) = NMonth
'Вызываем процедуру в книге "Журнал работ"
Application.Run TextBox2.Text & "!Module1.HoursWorks(NMonth,MasHous)"
 
MsgBox MasHours(1, 2)
Application.ScreenUpdating = True
End Sub

Sub HoursWorks(NMonth As Integer, ByRef MasHous() As String)
 
Timer 'Начало отчета таймера
 
'---------------------------------------------------------
 
'MsgBox Str(ZG_fncTimeWork(True))
TimeL = Timer(True) 'Конец отчета
MasHours(1, 2) = "Готово. Время выполненния: " + Str(TimeL / 1000) + " секунд"
 
 
End Sub

Sub test()
    Dim x&, y&, t
    
    x = 5
    y = 10
 
    t = Application.Run("test2.xls!Module1.test2", x, y)
End Sub

t = Application.Run("test2.xls!Module1.test2", x, y)

Sub test2(x, y)
    MsgBox x + y
End Sub

t = Application.Run("test2.xls!Module1.test2", x, y)

Application.Run TextBox2.Text & "!Module1.HoursWorks(NMonth,MasHous)"

Application.Run(TextBox2.Text & "!Module1.HoursWorks", NMonth, MasHous)

"'" & TextBox2.Text & "'!Module1.HoursWorks"

Application.ScreenUpdating = False
Workbooks("Базан.xls").Activate
Nstr = Application.Run("Базан.xls!FindPac", False)