Error message when running macro

[sofas]

Hello,I recorded a macro and when I play it this message appears
I don't know where the problem is

Sub YY()

    SolverOk SetCell:="$B$57", MaxMinVal:=1, ValueOf:=0, ByChange:="$B$26:$F$26", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverAdd CellRef:="$L$26", Relation:=2, FormulaText:="1"
    SolverAdd CellRef:="$B$26:$F$26", Relation:=3, FormulaText:="0"
    SolverOk SetCell:="$B$57", MaxMinVal:=1, ValueOf:=0, ByChange:="$B$26:$F$26", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$B$57", MaxMinVal:=1, ValueOf:=0, ByChange:="$B$26:$F$26", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve
    ActiveWindow.SmallScroll Down:=-30
End Sub

 

[6StringJazzer]

Do you have a reference to SOLVER set?