在添加新工作表時觸發宏

Question

我有插入工作表按鈕單擊的vba代碼

Sheets.Add After:=ActiveSheet

如何將其轉換為

IF Sheets.Add After:=ActiveSheet THEN {Statement}

Answer 1

您可以使用Workbook.NewSheet事件。
https://learn.microsoft.com/en-us/office/vba/api/excel.workbook.newsheet

將它插入ThisWorkBook對象后面。

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    'some code
End Sub