Dim myExcel As Object

    Set myExcel = CreateObject("Excel.Application")
    myExcel.Visible = True
    With myExcel.Workbooks.Add
        .Activate
    End With

Sub Имитация_обычного_запуска_Excel()

Dim myExcel As Object
Dim myAddIn As Object
Dim myWorkbook As Object
Dim strPATH As String

    ' Excel
    Set myExcel = CreateObject("Excel.Application")
    
    ' AddIn (все)
    For Each myAddIn In myExcel.AddIns
        If myAddIn.Installed Then
            Set myWorkbook = myExcel.Workbooks.Open(myAddIn.FullName)
            myWorkbook.RunAutoMacros  1  ' xlAutoOpen
        End If
    Next myAddIn
    
    ' XLSTART (только нужные)
    strPATH = myExcel.StartupPath & myExcel.PathSeparator
    Set myWorkbook = myExcel.Workbooks.Open(strPATH & "Моя книга.xls")
    myWorkbook.RunAutoMacros  1  ' xlAutoOpen

    myExcel.Visible = True
    
    Set myWorkbook = Nothing
    Set myExcel = Nothing
    
End Sub