Excel 打开XLS工作簿时，App_工作簿打开未响应

我正在编写一个简单的宏来解决使用XLS和多个监视器的人的一个常见问题。工作簿通常保存在第二个窗口中，重新打开时不会显示在主窗口中

为了解决这个问题，我尝试使用App_WorkbookOpen函数，但遇到了几个问题

此代码仅在打开XLS的新实例时运行

此代码将打开工作簿，但不会显示在windows菜单中

此代码仅与personal.xls模板交互

我已经包含了几行代码来测试宏与之交互的内容。 代码位于我的个人模板的此工作簿部分

如果将核心代码放在一个单独的工作簿中，它就可以工作，但我希望它能在所有Wb_开放的情况下运行

Option Explicit
Public WithEvents App As Application

Private Sub Workbook_Open()
    Set App = Application
End Sub

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
On Error Resume Next 'error handling, remove when final
    Application.ScreenUpdating = False

    If ActiveWindow.Left > Application.UsableWidth Then
        ActiveWindow.Left = 15
        ActiveWindow.Top = 10
    End If

    MsgBox "New Workbook:" & Wb.Name 'what wkbook?, remove when final


If Error Then End
End Sub

有什么想法吗