Worksheet_change不使用公式，Worksheet_Calculate出现编译错误

Question

我正在尝试让Graph根据单元格中的特定值改变颜色(Stage Gate 1-5)。这是我的测试代码。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$M$2" Then
 If Target.Value = "Stage Gate 5" Then
 Sheet15.ChartObjects(1).Chart.SeriesCollection(2).Points(1).Interior.Color = RGB(167, 34, 110)
 Else
  MsgBox "error"
  End If
 End If
End Sub

当值刚输入到单元格中时，这种方法工作得很好。但是，如果该值是从公式中导出的，则该值不起作用。我曾尝试将worksheet_Change更改为worksheet_calculate，但得到的结果是Compile error。

如果有人能帮上忙，那就太好了。