同じセル位置にシートの連番をつけたい

質問

Excel2007でマクロ作成の初心者です。
すべてのシートのＲ15セルに、シートの順番どおり
1から連番で番号をつけたいです。
途中でシートを削除したときも、即座に新しい連番が表示されるようにしたいです。
どうつくったらいいか、皆目わかりません。よろしくお願いします。
Sub test()
Dim i As Integer
For i = 1 To (Worksheets.Count - 3)
Cells(18, 15) = Worksheets(i)
Range("R15").Formula = "="1""
Next i
End Sub

回答No.1

jin34 · ベストアンサー

ワークブックイベントにこのように書けばいいと思います。
アクティブなワークシートが切り替わると起こるイベントです。

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim i As Integer
For i = 1 To ThisWorkbook.Worksheets.Count
Worksheets(i).Range("R1").Value = i
Next i
End Sub

お礼

ありがとうございました。思ったとおりのことが実現できました。