如何定义一个和Excel内嵌函数一样的用户自定义函数？

[icbm]

比如：Excel内嵌函数max()
单元格A10的公式是"=Max(A1:A9)，那么A10将求出A1:A9的最大值。A1:A9中任何一个单元格发生变化时，A10将立即显示出A1:A9中新的最大值。

我想定义一个用户自定义函数MyMax()，实现和Excel内嵌函数Max()一样的功能。
请问：
1、MyMax()的“参数”应如何定义？
2、如何使MyMax()函数有和Excel内嵌函数Max()一样的“自动计算”功能，即假设上面例子中的A10的公式是"=MyMax(...)"，A1:A9中任何一个单元格发生变化时，A10也将立即显示出A1:A9中新的最大值。

我记得原来在哪里看到过，可以实现这样的函数，结果今天怎么找也找不到了。

[Ganzl]

新增一个模块,并声明下面的全局函数:

Public Function MyMax(xRange As Excel.Range) As Variant
MyMax = Application.WorksheetFunction.Max(xRange)
End Function

[icbm]

Ganzl(甘逐浪)：非常感谢！

在你的启发下，我写了下面这个函数，达到了我预期的目的。

Option Explicit

Function MyMax(xRange As Excel.Range) As Long
Dim r As Range, m As Long
For Each r In xRange
If r.Value > m Then
m = r.Value
End If
Next
MyMax = m
End Function