Solver loop i VBA med forskydninger ved brug af Offset

Hej Computerworld

Jeg skal gerne køre Solveren, hvor den ene del af solveren skal "springe" med 10 rækker og den anden del af solveren skal "springe" med 1 række.

Jeg får en "compile error: sub or function not defined" på Offset funktionen når jeg kører følgende kode i VBA:

Sub Solver
Dim i As Integer
ActiveWorkbook.ActiveSheet.Activate
For i = 2 To 10
    SolverReset
 
    SolverOk SetCell:="$V$" & i, MaxMinVal:=2, ValueOf:=0, ByChange:="$F$" & Offset(10 * i - 18, 0) & ",$H$" & Offset(10 * i - 9, 0), _
        Engine:=2, EngineDesc:="Simplex LP"

    SolverAdd CellRef:="$I$" & Offset(10 * i - 18, 0) & ",$I$" & Offset(10 * i - 9, 0), Relation:=3, FormulaText:="0"

    SolverAdd CellRef:="$P$" & i, Relation:=3, FormulaText:="$Q$" & i
    SolverAdd CellRef:="$R$" & i, Relation:=3, FormulaText:="$S$" & i
    SolverAdd CellRef:="$T$" & i, Relation:=3, FormulaText:="$U$" & i
    SolverAdd CellRef:="$F$" & Offset(10 * i - 18, 0) & ",$H$" & Offset(10 * i - 9, 0), Relation:=4, FormulaText:="heltal"
   
    SolverSolve True
Next i
End Sub

Er der nogen der kan hjælpe mig med hvad jeg gør forkert?