函数的调用

[mitnick1964]

问题：我现在有一个函数如下，在VBA里我该如何调用它来判断一个选定的单元格里的内容是汉字，还是英文，

Function HasHZ(ByVal s As String) As Boolean
With CreateObject("VBSCRIPT.REGEXP")
.Pattern = "[\u4e00-\u9fa5]"
HasHZ = .test(s)
End With
End Function

要求：写出完整的调用语句，包括如何选定一个单元格，并对单元格里的内容进行判断

环境：excel 2000

[mitnick1964]

没有人知道吗？

[zipall]

Sub 示例()
[a1].Select '选择A1单元格，不知道你选择后要干什么？如果仅仅是取值，select完全不必要。
If HasHZ([a1]) Then '直接调用该函数
'有汉字时要进行的处理
Else
'无汉字时要进行的处理
End If
End Sub

[ChinaOBS]

HasHZ 看起来很眼熟啊... ...