Sub NateGoalSeek()
Range("A3").GoalSeek Goal:=Range("A2").Value, ChangingCell:=Range("A1")
End Sub
In this example, we are seeking to set the value returned by the formula in cell A3 equal to the
value entered in cell A2 by changing cell A1 (all of the activesheet).