Mangler hjælp til min makro

Hej kære eksperter,

Jeg sidder her med et kæmpe makroproblem. Jeg skal have en makro til at udløse Problemløseren i excel. Hertil har jeg følgende kode:

Sub Knap14_Klik()
'
' Knap14_Klik Makro
' Makro indspillet 05-11-2007 af Ann-Louise Korsholm  Jeppesen
'

'
    ProblemløserOK SetCell:="$D$43", MaxMinVal:=2, ValueOf:="0", ByChange:= _
        "$D$21:$J$27"
    ProblemløserTilføj CellRef:="$D$28", Relation:=2, FormulaText:="$D$14"
    ProblemløserTilføj CellRef:="$E$28", Relation:=2, FormulaText:="$E$14"
    ProblemløserTilføj CellRef:="$F$28", Relation:=2, FormulaText:="$F$14"
    ProblemløserTilføj CellRef:="$G$28", Relation:=2, FormulaText:="$G$14"
    ProblemløserTilføj CellRef:="$H$28", Relation:=2, FormulaText:="$H$14"
    ProblemløserTilføj CellRef:="$I$28", Relation:=2, FormulaText:="$I$14"
    ProblemløserTilføj CellRef:="$J$28", Relation:=2, FormulaText:="$J$14"
    ProblemløserTilføj CellRef:="$K$21", Relation:=1, FormulaText:="$K$8"
    ProblemløserTilføj CellRef:="$K$22", Relation:=1, FormulaText:="$K$8"
    ProblemløserTilføj CellRef:="$K$23", Relation:=1, FormulaText:="$K$9"
    ProblemløserTilføj CellRef:="$K$24", Relation:=1, FormulaText:="$K$10"
    ProblemløserTilføj CellRef:="$K$25", Relation:=1, FormulaText:="$K$11"
    ProblemløserTilføj CellRef:="$K$26", Relation:=1, FormulaText:="$K$12"
    ProblemløserTilføj CellRef:="$K$27", Relation:=1, FormulaText:="$K$13"
    ProblemløserTilføj CellRef:="$D$21:$J$27", Relation:=3, FormulaText:="0"
    ProblemløserOK SetCell:="$D$43", MaxMinVal:=2, ValueOf:="0", ByChange:= _
        "$D$21:$J$27"
    ProblemløserLøs
End Sub


Det virker dog slet ikke. Når jeg afspiller makroen kommer følgende: Compile error: Sub or function not defined.

Trykker jeg her OK og lader være med at lukke Visual Basic og kører makroen igen, så får jeg beskeden "Can't execute code in break mode".

Håber I kan hjælpe mig, så den makro kommer til at virke...

Tak.