EXCELで選択したリストの値によりsheet移動かつ選択した値を表示

質問

例えば『赤』『青』『黒』と言う名前のシートが３つあるBookがあります。
３つそれぞれのシートのA1セルに、データ-入力規則で『赤、青、黒』が選択できるようにします。
『赤』を選んだら『赤』の名前のシートに移動、『黒』を選んだら『黒』のシートへ。
ここまでは出来ました。↓↓
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
sn = Target
Sheets(sn).Select
End If
End Sub

教えて頂きたいのは移動後のシートで選択した値を最初に表示したいのです。
『赤』シートでリストから『黒』を選択したら『黒』シートのA1セルのリストは最初は『黒』を表示していて欲しいのです。
うまく説明ができないのですがよろしくお願いします。

回答No.1

nishi6 · ベストアンサー

こんなことでしょうか。

Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim sn As String

　　If Target.Address = "$A$1" Then
　　　　sn = Target.Text

　　　　'// Changeイベントが起きないようにして移動先の値を書き換える
　　　　Application.EnableEvents = False
　　　　　　Sheets(sn).Range("A1") = sn
　　　　'// Changeイベントが起きるようにする
　　　　Application.EnableEvents = True

　　　　Sheets(sn).Select
　　End If
End Sub

お礼

すばらしいです！
まさしくコレです！
こんなに早く回答ありがとうございました。
助かりました！