在任何打开的工作簿中新建工作表时产生此事件。
Private Sub object_WorkbookNewSheet(ByVal Wb As Workbook, ByVal Sh As Object)
object 在类模块中带有事件声明的 Application 类型对象。有关详细信息,请参阅 Application 对象事件的用法。
Wb 工作簿。
Sh 新建的工作表。
本示例将新建工作表移到工作簿的末尾。
Private Sub App_WorkbookNewSheet(ByVal Wb As Workbook, _
ByVal Sh As Object)
Sh.Move After:=Wb.Sheets(Wb.Sheets.Count)
End Sub