添加工作表时执行代码

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事件中:

每次创建新工作表时都会执行该操作.