请问VBA函数中match该怎么用，以下是代码：

Function ff(r As Range)   ' 假设r是8行1列的变量
    a = Range(r.Cells(1, 1), r.Cells(6, 1)   ' a为r的前6行
    MaxR = Application.WorksheetFunction.Max(a)
    MaxT = Application.WorksheetFunction.Match(MaxR, a, 0)   ' 想找出a中最大值的位置，但这里有错误，运行不出来
ff = MaxT
End Function

谢谢！