此代码有什么问题？ 不断收到应用程序定义的错误

Question

不断提示应用程序定义的错误，我不认为有任何错误

ActiveSheet.Cells(salesNo + 1, 5).Formula = "=CONCATENATE(""Subtotal for ""& Cells(salesNo - 1, 3).Address)"

Answer 1

ActiveSheet.Cells(salesNo + 1, 5).Formula = _
      "=""Subtotal for "" & " & Cells(salesNo - 1, 3).Address

Answer 2

ADDRESS in Excel

ActiveSheet.Cells(salesNo + 1, 5).Formula _
    = "=""Subtotal for ""&ADDRESS(" & salesNo - 1 & ",3)"

or

ActiveSheet.Cells(salesNo + 1, 5).Formula = "=" & Chr(34) _
    & "Subtotal for " & Chr(34) & "&ADDRESS(" & salesNo - 1 & ",3)"

To get rid of the $ signs:

ActiveSheet.Cells(salesNo + 1, 5).Formula _
    = "=""Subtotal for ""&ADDRESS(" & salesNo - 1 & ",3,4)"

or

ActiveSheet.Cells(salesNo + 1, 5).Formula = "=" & Chr(34) _
    & "Subtotal for " & Chr(34) & "&ADDRESS(" & salesNo - 1 & ",3,4)"

EDIT

ActiveSheet.Cells(salesNo + 1, 5).Formula _
    = "=""Subtotal for ""&INDIRECT(ADDRESS(" & salesNo - 1 & ",3,4))"

or

ActiveSheet.Cells(salesNo + 1, 5).Formula = "=" & Chr(34) _
    & "Subtotal for " & Chr(34) & "&INDIRECT(ADDRESS(" & salesNo - 1 & ",3,4))"