VBA查询单元格是否数值型

Function isNum(rng) As Boolean
Dim i As Integer
On Error Resume Next
i = rng
isNum = Not Err.Number = 13
End Function

Sub sdk()
For Each rng In Range("U2:Z527")
If isNum(rng) = False Then rng.Select
Next
End Sub