Makro til "Problemløser"

Hej

I et regneark anvender jeg Problemløser til en optimering. Jeg vil gerne lave regnearket brugervenligt, så jeg vil forsyne en "knap" med en makro, som afspiller makroen. Jeg har indspillet nedenstående makro, men når jeg afspiller den igen, går den "fast" allerede i første linje ved "ProblemløserOK". Er der nogen bud på, hvordan en sådan makro kan komme til at virke?

Venlig hilsen

Torkild

----------------------------------

Sub Løs()
'
' Løs Makro
'

'
    ProblemløserOK SetCell:="$U$13", MaxMinVal:=1, ValueOf:="0", ByChange:= _
        "$S$5:$S$12"
    ProblemløserLøs
End Sub

------------------------------