Problemløser, der skal sættes i gang med makro

Prøv at vis din kode og hvor fejlen kommer, og hvordan fejlbeskedden lyder

Dette er et udklip af en makro hvori jeg har brugt solveren uden problemer.

Private Sub CommandButton1_Click()

SolverOk SetCell:="$M$21", MaxMinVal:=1, ValueOf:="0", ByChange:="$J$9:$L$9"
    SolverAdd CellRef:="$J$9", Relation:=1, FormulaText:="1"
    SolverAdd CellRef:="$J$9", Relation:=3, FormulaText:="0"
    SolverAdd CellRef:="$K$9", Relation:=1, FormulaText:="1"
    SolverAdd CellRef:="$K$9", Relation:=3, FormulaText:="0"
    SolverAdd CellRef:="$L$9", Relation:=1, FormulaText:="1"
    SolverAdd CellRef:="$L$9", Relation:=3, FormulaText:="0"
SolverOk SetCell:="$M$21", MaxMinVal:=1, ValueOf:="0", ByChange:="$J$9:$L$9"
SolverSolve userfinish = False
SolverReset

End Sub

ryemors - har du fået løst problemet (nu her efter ½ år)?

Hvis ja, så luk spørgsmålet, hvis nej, spørg videre :o)