Компиляция задачи с помощью Солвера

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("G5").Select
    SolverOk SetCell: = "$G$5", MaxMinVal:=2, ValueOf:=0, ByChange: = "$G$4", Engine:=1 _
        , EngineDesc: = "GRG Nonlinear"
    SolverOk SetCell: = "$G$5", MaxMinVal:=2, ValueOf:=0, ByChange: = "$G$4", Engine:=1 _
        , EngineDesc: = "GRG Nonlinear"
    SolverSolve
End Sub

У меня появилось окно сообщения:

"Compile error: Sub or function not defined"

Я предполагаю, что сообщение относится к функции или подсистеме SolverOk.

Любой может мне помочь. заранее спасибо