シート名を自動で「別シートの」セルを参照して指定したいです。

Question

ExcelVBA初心者です。よろしくお願い致します。
アルバイトのシフト表を作っています。

Sheet1に15日間の全員分のスケジュール、Sheet2〜16に日毎のシフト表が出来上がります。
Sheet1のC4セルに入力された日付およびそこから14日間それぞれの日付をSheet2~16のシート名に自動反映させたいです。

現在は日付の表示に関して、Sheet1のC4セルに15日分の最初の日付を入力し(7月前半のシフト表を作るなら7/1と入力)、C5~AF5に左隣+1を入力するようにして日付を入れています。(1日あたり2列使用)

シート名の変更にあたり下記コードを書きましたが動きません。どこを修正すればよろしいでしょうか。

Sheet2(7/1のシフト表)に

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = Worksheets(1).Range("C4") Then Sh.Name = Target.Worksheets(1).Range("C4").Value
End Sub

Sheet1のC4セルに7/1と入力された場合、上記でSheet2のシート名が7/1になると思っております。
参照方法が間違っておりますでしょうか。

Answer 1

追記：セルの値が変更された場合に処理をするのであれば、Worksheet_Changeイベントを使います。
Sheet1に以下のコードを書けば、Sheet1のC4セル入力でSheet2の名前が変わります。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$4" Then Worksheets(2).Name = Target.Text
End Sub

Comments

[退会済みユーザー]

ご回答ありがとうございました！無事にできました。
If Target.Address = "$C$4" Then Worksheets(●).Name = Range("○○").Text
で全シートの指定を書きました。
シート名スラッシュ不可の件もありがとうございました。

Answer 2

.Addressがセルの番地を表しているのに対して
.Range("C4")はセルの中身を表しています

ので
Target.Address = Worksheets(1).Range("C4")
の部分は
Target.Address = "$C$4"
に修正すれば「"C4"セルの場合、○○する」
になります。

さらにシート名を変える処理ですが、単に
Sh.Name = Target.Text
でいけると思います。
（"Sh"がワークシートを表しているのであれば）

あと直接関係ないですが
ワークシート名にスラッシュは入力できないです。