宏未打开时自动运行

Question

Private Sub Workbook_Open()
Dim WB As Workbook

Set WB = ActiveWorkbook


WB.Sheets("Automation").Range("U23:W467").Select

Selection.ClearContents

End Sub

从我可以从SO收集的内容中，当我打开工作簿时，此代码应自动清除这些单元格中的内容。但事实并非如此。当我进入代码时，一切正常，细胞被清除。

感谢任何帮助！

Answer 1

放置子Workbook_Open()的代码在哪里？

如果你把它放在ThisWorkbook课程中，它应该运行。

如果你在常规代码模块中使用它，它将不会使用该名称运行，但你可以调用子Auto_Open()而它应该自动运行。