Как правильно вызвать процедуру из рабочей книги?

[МоКом]

Как правильно вызвать процедуру из рабочей книги?

Как правильно написать вызов процедуры из рабочей книги, например, my_work.xls, если эта процедура (например с именем my_sub) размещена в личной книге макросов PERSONAL.XLS ?

Если процедура не имеет параметров, то можно обойтись следующим:
Application.Run "PERSONAL.XLS!my_sub"

А если процедура с параметрами?

[a_mayor]

Код: Выделить всё


Private Sub CommandButton1_Click()
    Dim wrkBook As Workbook
   
    Set wrkBook = Workbooks.Open("PERSONAL.XLS")
    wrkBook.my_sub 1, 2, 3, 4
   
    wrkBook.Close
End Sub


[МоКом]

Дело в том, что PERSONAL.XLS - это личная книга макросов. Поэтому, насколько я понимаю, она открывается всякий раз при запуске Excel. Таким образом ее открывать неет необходимости.

Как тогда изменить строку:
Set wrkBook = Workbooks.Open("PERSONAL.XLS")

[МоКом]

Проблема решена - спасибо (ох уж это Микрософт офисе 2003 )