Goalseek VBA

[fenerian]

The range I want to change using goalseek changes but it is always the max value in range(d77:s77).

So I am trying to choose the one cell range that has the max value in ChangingCell:= part of goalseek.

What I have rigth now:
Range("F78").GoalSeek Goal:=Range("d70"), ChangingCell:=**Range("d77")**

Thanks in advance.

 

[pgc01]

Hi fenerian
Welcome to the board

Try:

Dim rMax As Range
 
Set rMax = Range("D77:S77").Find(Application.WorksheetFunction.Max(Range("D77:S77")))
 
Range("F78").GoalSeek Goal:=Range("d70"), ChangingCell:=rMax

 

[fenerian]

pgc01,

thanks alot. worked perfectly.