excel vba 自动刷新网页数据，监视单元格内容达到特定值

Question

自动刷新网页数据，监视单元格内容达到特定值 弹窗提醒 如何操作？

Answer 1

比如 你想 把 sheet1 中A1 单元格 复制给 X变量 那么
X = sheets("sheet1").range("a1")
比如你又要把 某个 运算结果 的变量值 Y 复制给 sheet1的 A1 那么：
sheets("sheet1").range("a1")=Y追问

触发条件怎么写，这样写对吗？
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim x
x = Sheets("sheet1").Range("a1")
If x > 0 Then
msxbox "x>0"
End If
End Sub
提示子过程或函数未定义是怎么回事 谢答