VBA Worksheet_Calculate Not Triggering

Question

我正在尝试在 Excel 2007 中编写宏来将图表的 x -axis链接到工作表中的指定单元格。我针对最大和最小轴值的单元格包含INDEX函数，我将其与滚动条结合使用。当滚动条移动时，单元格值会根据INDEX函数而变化，我正在尝试将这些更改链接到图表上的 x -axis。

我无法执行以下代码：

Private Sub Worksheet_Calculate()
With ActiveSheet.ChartObjects("Chart 7").Chart
      Select Case Target.Address
        Case "$H$47"
          .Axes(xlCategory).MaximumScale = Target.Value
        Case "$H$34"
         .Axes(xlCategory).MinimumScale = Target.Value
      End Select
  End With
End Sub

谁能告诉我我做错了什么？

谢谢， 卡拉