ワークシート追加時の動作

ワークシート追加時に何か処理を行いたい場合、
ThisWorkbookモジュール内にWorkbook_NewSheetプロシージャに記述します。

引数の「Sh」は追加されるワークシートオブジェクトで、
以下のようにSh.Nameで追加されるシート名を取得できます。

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Cells(1, 1).Value = "シート「" & Sh.Name & "」が追加されました。"
End Sub

上の状態で、Sheet2の右にある＋(プラス)をクリックしてみます。

Sheet3が追加され、A1セルには
『シート「Sheet3」が追加されました。』
と出力されました。