Worksheet_change 无法使用公式，而 Worksheet_Calculate 会出现编译错误

我正在尝试使图表根据单元格中的特定值（阶段门 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 但这只是给了我编译错误 https://i.stack.imgur.com/WoVCP.jpg.

如果有人能提供帮助那就太好了。

尝试这个：

Private Sub Worksheet_Calculate()

If Range("M2").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 Sub

即使值是从公式导出的，它也有效。