求助一宏检测单元格数据变化
请教各位老师，帮忙写一宏代码完成下面任务：
B2单元格的数据是由公式自动生成的（非手工输入），当B2内数据发生变化后自动运行一特定宏（宏名：超出临界值）。
[最优解释]
Private iVal
Private Sub Worksheet_Activate()
iVal = [B1]
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If [B1] <> iVal Then
MsgBox "已到临界值" '代码
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
iVal = [B1]
End Sub
