Excelマクロ - 同じブック内の別のワークシートのセルに基づいてタブの色を変更するにはどうすればよいですか？

Question

私は以下を試しましたが、うまくいきません - 他の提案はありますか？

Private Sub Worksheet_Change(ByVal Target As Range) 
MyVal = Range("'Summary'!A8").Text 

With ActiveSheet.Tab 
    Select Case MyVal 
     Case "Black" 
      .Color = vbBlack 
     Case "Red" 
      .Color = vbRed 
     Case "Green" 
      .Color = vbGreen 
     Case "Yellow" 
      .Color = vbYellow 
     Case "Blue" 
      .Color = vbBlue 
     Case "Magenta" 
      .Color = vbMagenta 
     Case "Cyan" 
      .Color = vbCyan 
     Case "White" 
      .Color = vbWhite 
     Case Else 
      .ColorIndex = xlColorIndexNone 
    End Select 
End With 
End Sub 

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim MyVal$ 
MyVal = ActiveWorkbook.Sheets("Summary").Range("A8") 

With ActiveSheet.Tab 
    Select Case MyVal 
     Case "Black" 
      .Color = vbBlack 
     Case "Red" 
      .Color = vbRed 
     Case "Green" 
      .Color = vbGreen 
     Case "Yellow" 
      .Color = vbYellow 
     Case "Blue" 
      .Color = vbBlue 
     Case "Magenta" 
      .Color = vbMagenta 
     Case "Cyan" 
      .Color = vbCyan 
     Case "White" 
      .Color = vbWhite 
     Case Else 
      .ColorIndex = xlColorIndexNone 
    End Select 
End With 
End Sub