VBA Worksheet_Calculate不触发

我试图在Excel 2007中编写一个macros来将图表的x轴链接到工作表中的指定单元格。 我为我的最大值和最小值轴定位的单元格包含INDEX函数，我正在使用一个滚动条。 随着滚动条的移动，单元格值根据INDEX函数而改变，我试图将这些更改链接到图表上的x轴。

我不能得到下面的代码来执行：

 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 

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

谢谢卡拉