在线求助关于不能设置类 Range的FormulaArray属性

Question

Dim n As Integer
 Dim c As Range
  n = Cells(1, 1)
  Cells(1, 3).FormulaArray = "=MAX(ABS(R[2]C[-1]:R[n+1]C[-1]))"
  MsgBox (Cells(1, 3))
 Set c = Range("b3:b2403").Find(what:=Cells(1, 3), _
        After:=Cells(3, 2), LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, _
        SearchDirection:=xlNext, MatchCase:=False)
        MsgBox (c.Address)
       MsgBox (c.Offset(0, -1))
End Sub
这是代码运行时候  Cells(1, 3).FormulaArray = "=MAX(ABS(R[2]C[-1]:R[n+1]C[-1]))"会提示不能设置类 Range的FormulaArray属性，哪位高手知道该怎么改？不胜感激！