计算时VBA问题

Question

关于模型。计算行，我得到一个错误。

错误是"不能执行breakmode下的代码">

代码有问题吗?注意:TM1插件已启用，且必须为。

Sub Status_Quo_Sensitivity()
Dim wb As Workbook, Summary As Worksheet, Inputs As Worksheet, Model As Worksheet
Dim SenRange As Range, Reductions(1 To 5) As Double
Dim ReducCell As Range
Dim val As Integer, num As Integer

Set Summary = ThisWorkbook.Worksheets("SUMMARY")
Set Inputs = ThisWorkbook.Worksheets("INPUTS")
Set Model = ThisWorkbook.Worksheets("MODEL")
Set SenRange = Summary.Range("K15:K19")
Set ReducCell = Inputs.Range("D17")
For val = 1 To 5
Reductions(val) = Summary.Cells(13, val + 8).Value
Next val

For num = LBound(Reductions) To UBound(Reductions)
Inputs.Cells("D17") = Reductions(num)
Model.Calculate
Summary.Calculate
SenRange.Copy
Inputs.Range(Inputs.Cells(15, 8 + num), Inputs.Cells(19, 8 + num)).PasteSpecial xlPasteValues
Next num

Answer 1

Inputs.Cells("D17")  

Inputs.Range("D17")