每当添加工作表时执行代码

我有一个列表框，在初始化填充列表框与当前工作表的所有名称。 我使用这样的代码：

For Each wCs In ActiveWorkbook.Worksheets If Not Right(wCs.Name, 10) = "Eng_Labels" Then ListBox3.AddItem wCs.Name End If Next wCs 

（ Eng_Labels是我们用于计算的工作表，所以我们不想显示它。）

有没有办法让这个代码，或类似的东西，当用户添加工作表时运行？ 是否有一个worksheet_addedtypes的事件，我可以把这件事？

Answer 1

将您的详细信息添加到工作簿的NewSheet事件：

每次创build新工作表时执行。

Answer 2

是的，在工作簿的VBA中，可以使用每次将新工作表添加到工作簿时由Excel执行的Workbook_NewSheet事件