Run time error 1004, Reference is not valid

[sasidhar4]

Hi guys, Could you please help me in solving the run time error 1004, "reference is not valid" in the following code line with text highlighted Red

>>> use code - tags <<<

Sub UltMoment()

Dim datalist, n, m, i

datalist = Range("Mu_1")
n = UBound(datalist, 1)
m = UBound(datalist, 2)
For i = 1 To m

Range("Mu_1").Cells(n, i).GoalSeek Goal:=0, ChangingCell:=Range("Mu_1").Cells(1, i)

    'SolverOk SetCell:=Range("Mu_1").Cells(n, i), MaxMinVal:=3, ValueOf:=0, ByChange:=Range("Mu_1").Cells(1, i)
    'SolverSolve userfinish:=True
Next i
   
End Sub

 

[Hui]

Should
Range("Mu_1").Cells(n, i).GoalSeek Goal:=0, ChangingCell:=Range("Mu_1").Cells(1, i)

be
Range("Mu_1").Cells(n, i).GoalSeek Goal:=0, ChangingCell:=Range("Mu_1").offset(1, i)

 

[sasidhar4]

Should
Range("Mu_1").Cells(n, i).GoalSeek Goal:=0, ChangingCell:=Range("Mu_1").Cells(1, i)

be
Range("Mu_1").Cells(n, i).GoalSeek Goal:=0, ChangingCell:=Range("Mu_1").offset(1, i)

Hi Hui

Thank you so much for your help.
Excel is still throwing reference error even after changing the code as suggested with "offset".


Could you please suggest if there is any other solution?

 

[Hui]

Can you attach the file so we can review the situation?

Thanx