用vba在EXL表格编写的一段代码，请大神帮忙修改怎样可以运行成功。计算时运行时错误13，类型不匹配

Private Sub Worksheet_Change(ByVal Target As Range)If Range("A1:Z500") > 17 ThenMsgBox "提示：有大于18的单元格"End IfEnd Sub

这个代码错， Range("A1:Z500") > 17，这个区域和17一个数字没法比较。应该是这个区域中逐个单元格与17做比较。
Private Sub Worksheet_Change(ByVal Target As Range)
dim c
for each c in range("A1:Z500").cells
If c > 17 Then
MsgBox "提示：有大于18的单元格"
exit for
End If
next c
End Sub

但是，有必要每改一个单元格，都把500个单元格检查一次吗？也没错，只是……

Private Sub Worksheet_Change(ByVal Target As Range) If Application.CountIf(Range("A1:Z500"), ">18") Then     MsgBox "提示：有大于18的单元格" End If End Sub

你好！ Private Sub Worksheet_Change(ByVal Target As Range) If Application.CountIf(Range("A1:Z500"), ">18") Then     MsgBox "提示：有大于18的单元格" End If End Sub 仅代表个人观点，不喜勿喷，谢谢。

range是个区域，比较大小要统计的 If WorksheetFunction.CountIf(Range("A1:Z500"), ">17") Then MsgBox "提示：有大于18的单元格" End If

Private Sub Worksheet_Change(ByVal Target As Range) For Each Target In Range("A1:Z500")     If Target.Value > 17 Then        MsgBox "提示：有大于17的单元格"        Exit Sub     End If Next End Sub