Solver makro problem

I VBA har jeg under Tools/reference sat flueben ved SOVLVER

Målcelle: $d$40
Lig med: maks
Redigering af celler: $F$6:$F$37
Betingelser:
$E$40=0,09
$F$40=1
$F$6:$F$37>=0

Når jeg indspiller en makro ser den sådan her ud:

Sub solvertest()
'
' solvertest Makro
' Makro indspillet 20-12-2006
'

'
    ProblemløserOK SetCell:="$D$40", MaxMinVal:=1, ValueOf:="0", ByChange:= _
        "$F$6:$F$37"
    ProblemløserTilføj CellRef:="$E$40", Relation:=2, FormulaText:="0,09"
    ProblemløserOK SetCell:="$D$40", MaxMinVal:=1, ValueOf:="0", ByChange:= _
        "$F$6:$F$37"
    ProblemløserTilføj CellRef:="$F$40", Relation:=2, FormulaText:="1"
    ProblemløserOK SetCell:="$D$40", MaxMinVal:=1, ValueOf:="0", ByChange:= _
        "$F$6:$F$37"
    ProblemløserTilføj CellRef:="$F$6:$F$37", Relation:=3, FormulaText:="0"
    ProblemløserOK SetCell:="$D$40", MaxMinVal:=1, ValueOf:="0", ByChange:= _
        "$F$6:$F$37"
    ProblemløserLøs
End Sub


Når jeg prøver at afspille makroen, så highlighter den SetCell og siger 
”Named argument not found”

Hvad gør jeg galt? Problemløseren virker fint når jeg kører den manuelt uden makro.