错误提示：不能设置类Range的Formulaarray的属性，到底是什么问题？

ggjj82

Sub srjxhsqx()
    With ActiveCell.Resize(7, 1)
        Select Case MsgBox("输入全称请按“是”" & Chr(10) & "输入简写请按“否”", vbYesNoCancel, "请确认")
            Case vbYes
                .FormulaArray = "=text(row(1:7),""dddd"")"
                .Value = .Value
            Case vbNo
                .FormulaArray = "=text(row(1:7),""ddd"")"
                .Value = .Value
        End Select
    End With
End Sub

我想问下这个代码有什么问题？为什么有时候能运行，有时候就会弹出错误提示框，错误提示截图在附件。
运行环境是：win7，excel2016