Запуск макроса в книге MS Excel (из библеотеки личных макросов)

Private Sub TestExcelMacro()

Dim XLApp As Object

Dim s$

'es 03.03.2018

'Запуск макроса из книги MS Excel

'--------------------------------------------------------------------------

On Error GoTo TestExcelMacro_Err

Set XLApp = CreateObject("Excel.Application")

With XLApp

.Application.Visible = True

.UserControl = True

'Путь к библеотеке личных макросов (нужно только если макрос иммено ТАМ!)

s = Environ("UserProfile") & "\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.xlsb"

.Workbooks.Open s, True

'Открываем книжку

.Workbooks.Open "d:\Temp\MyFile.xlsx", False

.Run "PERSONAL.xlsb!mmm01Macro" 'Запуск макроса (mmm01Macro) из PERSONAL.xlsb

'Или так: .Run "mmm01Macro" - Запуск макроса (mmm01Macro) из MyFile.xlsm

.ActiveWorkbook.Close True

.Quit

End With

TestExcelMacro_Bye:

On Error Resume Next

Set XLApp = Nothing

Exit Sub

TestExcelMacro_Err:

MsgBox "Error: " & Err.Number & vbCrLf & Err.Description & vbCrLf & _

"in Sub: TestExcelMacro in module: [Имя Модуля]", vbCritical, "Error in Application: " & Err.Source

Err.Clear

Resume TestExcelMacro_Bye

End Sub