如果更改完成后单元格值变为<0，则弹出消息

Question

如果单元格值A12：AD 12为<0，我正在尝试获取消息警报。

单元格B12和C12合并。同样，下一个单元将合并（每个2个单元）

一旦更改了B16到B300之间的值，B12就会更改。 B12是A12与B16：B300之和之间的差。因此，如果B12中的值小于0，我需要一条消息

下面是我编写的代码

Private Sub Worksheet_Calculate()
Dim e As Integer
Dim f As Range
Dim d As Integer
'Set d = Range("A12:AD12")

If Range("A12:AD12").Value < 0 Then
e = MsgBox("Provide reason for exceeding daily hours", vbOKOnly)
End If
End Sub

只要17-300之间的任何行中都有条目，第12行中的值就会更改。如果第12行中的任何值小于0，则需要弹出消息。