エクセル：別のシートのセルの値から名前シートタブ

Question

私は成功し、次のVBAコードと同じシート内のセル参照に基づいて、私のシートタブに名前を付けることができます。

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 
    Set Target = Range("A1") 
    If Target = "" Then Exit Sub 
    On Error GoTo Badname 
    ActiveSheet.Name = Left(Target, 31) 
    Exit Sub 
Badname: 
    MsgBox "Please revise the entry in A1." & Chr(13) _ 
    & "It appears to contain one or more " & Chr(13) _ 
    & "illegal characters." & Chr(13) 
    Range("A1").Activate 
End Sub 

は、しかし、私は変更に苦労していますシート・タブは、タイトル・シートのセル参照に基づいています。私は単に希望のシート、Range("Keywords!A1")からの参照と範囲を置き換えてみましたが、これは動作していないようです。

この問題を回避するための提案は大変ありがたいです。

Answer 1

ただ、さらにコンテキストを追加するために別のワークシート

Worksheets("Keywords").Range("A1").Value