Solveren i excel

Hej eksperter

Så er jeg løbet i problemer igen :P

Jeg skal minimere celle C2 ved at ændre på et antal celler fra D2 og til (D+n)2
Det skal forstås sådan, at hvis n = 1, så er det D2:E2, hvis n=2 så er det D2:F2 etc.

Cellerne A4:A(4+n) skal være større eller lig med C4:C(4+n)

Sub DCG()
Dim n As Integer
n = 3

  SolverReset
  SolverOk SetCell:=Worksheets("sheet2").Range("C2"), MaxMinVal:=2, ValueOf:="0", ByChange:=Worksheets("sheet2").Range(Worksheets("sheet2").Cells(2, 4), Worksheets("sheet2").Cells(2, 3 + n))
  SolverAdd CellRef:=Worksheets("sheet2").Range("A4:A7"), Relation:=1, FormulaText:="$C$4:$C$7"
  SolverOptions AssumeLinear:=True, AssumeNonNeg:=True
  SolverSolve userFinish:=True
  SolverFinish KeepFinal:=1

End Sub

Mit problem er:
  SolverAdd CellRef:=Worksheets("sheet2").Range("A4:A7"), Relation:=1, FormulaText:="$C$4:$C$7"

Jeg kan kun få det til at virke når jeg manuelt skriver A7 og $C$7. Jeg kalder subrutinen i et andet ark end det jeg solver i, hvorfor jeg Worksheets("sheet2") med.

Er der nogen der kan hjælpe mig med at skrive linjen rigtigt, sådan at n bestemmer hvilke celler den skal bruge til at minimere C2?