EXCEL vba 怎样实现多个单元格使用同样代码？

Question

我现在需要这个代码：
If Range("A1") > 1 Then MsgBox "总和不能超过10"
意思就是：当A1单元格中的数字大于10时，弹出警告对话框："总和不能超过10"
其中A1单元格包含一个计算公式，计算的是某几个单元格中的数值之和

我现在有多个和A1类似的单元格，分别是A1:C3共9个
我希望这9个单元格都和A1单元格一样：当其中的数字大于10时，弹出警告对话框："总和不能超过10"

那在VBA中的代码该怎么输入？
难道需要重复输入该代码？就像下面一样：
If Range("A1") > 1 Then MsgBox "该值不能超过10"
If Range("A2") > 1 Then MsgBox "该值不能超过10"
If Range("A3") > 1 Then MsgBox "该值不能超过10"
If Range("B1") > 1 Then MsgBox "该值不能超过10"
...

Answer 1

单元格进行遍历
dim rng as range
for each rng in range("a1:c3")
if rng.value >10 then
msgbox ""