する質問をすることでしか得られない、回答やアドバイスがある。403シート1シート2シート3ある状態からシート3をコピー追加します。その際、下記のコードではメッセージボックスには4が表示されます。やりたいことは、シートコピー時のイベントを捉えることです。シートのコピー追加をするということは、シートが増えるということ。SheetActivateが実行される前のシートの数とSheetActivateが実行された後のシートの数この2つが一致しなければ、それはコピーしたということになります。SheetActivateなんですが一致すれば何も処理はしない。Sub本題は、SheetActivateが実行される前のシートの数これはどうやって取得することができるでしょうか?コードの0にあたる部分がそれなんですが、どうすれば良いでしょうか。本題で、シートの数を取得するタイミングも関わってくると思いますが、そのタイミングが最適でしょうか。Thenでやるなら1の部分は追加したシートの数にしなくては、、、attachmentクリップ0気になる質問をクリップするクリップした質問は、後からいつでもマイページで確認できます。クリップした質問に回答があった際、通知やメールを受け取ることができます。自分も答えを知りたい質問者以外のユーザにも役立つ評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。質問の評価を上げたことを取り消します低評価-評価を下げられる数の上限に達しました評価を下げることができません1日5回まで評価を下げられます1日に1ユーザに対して2回まで評価を下げられます質問の評価を下げるteratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。コメントをしてください。送信する質問の評価を下げる機能の利用条件この機能を利用するためには、以下の事項を行う必要があります。件sort評価が高い順sort新着順sort古い順linkcheckベストアンサー0ブックを開いたタイミングでシート数をグローバル変数に保持して、あとはシートアクティブのタイミングでチェック、違ってたら変数を更新が通常の流れでしょうか。静的変数を使ってイベント内だけで完結させたかったのですが、静的変数の初期値が自由に設定できなかったので、グローバル変数にしています。評価が高い回答ほどページの上位に表示されます。remove低評価0回答の評価を下げる下記のような回答は推奨されていません。評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。0つExcel.マクロ.VBお助けください。0エクセルVBAにてテキストボックスの参照値を再計算したいです。頂いたご意見への回答は行っておりません。