VBA Solver игнорирует мою двоичную константу

Question

У меня есть этот код для запуска Solver из VBA, но я заметил, что он игнорирует мое двоичное ограничение и не может найти решение. Но когда я запускаю почти тот же код через записанный макрос, он работает. Код, который не может найти решение:

*rngTaskAccum = ws5.Range(ws5.Cells(2 * counti + 5, 1), ws5.Cells(2 * counti + 5, countj + 1)).Address(False, False)
rngAssocAccum = ws5.Range(ws5.Cells(counti + 4, countj + 1), ws5.Cells(2 * counti + 4, countj + 1)).Address(False, False)
SolverReset
SolverOk SetCell:=ws5.Cells(counti + UBound(costMatrix, 1) + 5, countj + 2).value, MaxMinVal:=2, ValueOf:=0, ByChange:=rng2 _
    , Engine:=1, EngineDesc:="Simplex LP"
SolverAdd CellRef:=rng2, Relation:=5, FormulaText:="binary"
SolverAdd CellRef:=rngTaskAccum, Relation:=2, FormulaText:="=1"
SolverAdd CellRef:=rngAssocAccum, Relation:=1, FormulaText:="=1"
SolverSolve 'UserFinish:=True*