添加工作表时执行代码

Question

我有一个表单中的列表框，在初始化时填充该列表框，其中包含当前工作表的所有名称。我使用这样的代码：

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是我们用于计算的工作表，因此我们不想显示它。）

有没有办法在用户添加工作表时运行此代码或类似代码？是否有一个workheet_added类型的事件，我可以将其绑定到？

Answer 1

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

每次创建新工作表时都会执行。

Answer 2

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