Запуск макроса в книге 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