Run-time error '424' - Object required

Håber jeg kan få lidt hjælp til det her.

Jeg forsøger at indspille en makro der kan køre 'problemløseren' for mig. Men jeg den giver mig hele tiden fejl 424.

Her er kodningen som den ser ud i VBA.

Sub SolvTest()
'
' SolvTest Makro
'

'
    Problemløser.OK SetCell:="$E$65", MaxMinVal:=2, ValueOf:="0", ByChange:= _
        "$D$50:$D$61"
    Problemløser.Slet CellRef:="$E$66", Relation:=2, FormulaText:="40%"
    Problemløser.Tilføj CellRef:="$E$66", Relation:=2, FormulaText:="20%"
    Problemløser.OK SetCell:="$E$65", MaxMinVal:=2, ValueOf:="0", ByChange:= _
        "$D$50:$D$61"
    Problemløser.Løs
    Range("E65").Select
    Selection.Copy
    Range("C78").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E49:P49").Select
    Range("P49").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Range("E78").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Det skal siges at følgende ting er korrigeret,
1. 'Solver' er aktiveret i 'Tools' -> 'References'.
2. Microsoft DAO er tilføjet.
3. Der er taget hensyn til forskellen mellem 'Solver.OK' og 'SolveOk'.