シートの増減あっても特定セルに連番したい

質問

Ｅｘｃｅｌ2007でマクロ作成の初心者です。

すべてのシートのＲ15セルに、シートの順番どおり
1から連番で番号をつけるマクロを教えていただきました。
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim i As Integer
For i = 1 To ThisWorkbook.Worksheets.Count
Worksheets(i).Range("R15").Value = i
Next i
End Sub

これを以下のように改良したのですが、新しく追加したシートにはなぜか
番号が表示されません。どうしたら、うまく連番が入るようになるでしょうか。
Sub シートに連番()
Dim i As Integer
For i = 1 To ThisWorkbook.Worksheets.Count
Worksheets(i).Range("R15").Value = i
Next i
End Sub

回答No.3

bin-chan · ベストアンサー

> ほしいのは、シート増減したときの、シート連番です。すべてのシートに
> Private Sub Workbook_SheetActivate(ByVal Sh As Object)
> を書き込むのは面倒なので、できれば、シートに書きたくないです。

何か、勘違いがあるように思います。
例示のコードだと、実行された際にブック内に存在するシートすべてに番号を "振りなおす" 機能。
新規に追加したシートにのみ番号を振っているわけではありません。

マクロの実行で"シートに連番"を動かせば良いだけの話と思うのですが。

問題点は「自動的に起動しないからイヤ」とおっしゃてると読んだのです。
だから一番最初に
「シートに連番()はどのようにして呼び出しするおつもりですか？」
とお尋ねしています。

現在のブックをバックアップした上で、マクロ "シートに連番" を実行してみてください。

お礼

馬鹿な質問に答えていただき申し訳ありません。勘違いでした。
思うとおりできました。ありがとうございました。

回答No.2

bin-chan

では、マクロ＞マクロ＞シートに連番　を実行しても
「新しく追加したシートにはなぜか番号が表示されません。」ということですか？

補足

ブックの中に３０シートがあります。シートの名前は、顧客名です。顧客は入会したり退会したりしますので、そのたびにシートの挿入と削除が必要です。ほしいのは、シート増減したときの、シート連番です。すべてのシートに
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
を書き込むのは面倒なので、できれば、シートに書きたくないです。

回答No.1

bin-chan

シートに連番()はどのようにして呼び出しするおつもりですか？

もとのソースでは、シートがアクティブになったときに動作しますが、
> これを以下のように改良したのですが、
の書き方だと「マクロ＞マクロ＞シートに連番をクリックする」など
ご自身で意識して起動する必要があります。

補足

シートを増加あるいは削除したときに、すぐに上のマクロを実行するするつもりです。