使用 Excel Solver 运行 do while 循环

Question

Sub TestSolver()
    '
    ' TestSolver Macro
    '

    '
    Worksheets("Q3").Activate
    Do While Range("E10").Value = 0
        
        SolverReset
        
        Range("B7").Value = Range("B7").Value + 10
        SolverOk SetCell:="$B$16", MaxMinVal:=1, ValueOf:=0, ByChange:="$B$10:$F$10", _
            Engine:=2, EngineDesc:="Simplex LP"
        SolverOk SetCell:="$B$16", MaxMinVal:=1, ValueOf:=0, ByChange:="$B$10:$F$10", _
            Engine:=2, EngineDesc:="Simplex LP"
        SolverSolve
    Loop
End Sub

它说子或函数未定义！请指出问题

附言我是 VBA 新手，如果问题太少请见谅