Automatic Goal Seek That References Cell For Target Value

Sub Test_GoalSeek()
  ' 8.14%, 6.85%, 10.00
  ' Range("I24").GoalSeek Goal:=Range("G9").Value, ChangingCell:=Range("F24")
  GoalSeek [I24], [G9], [F24]
  '6.85, 6.85, 166.75
End Sub

Function GoalSeek(formulaCell As Range, dGoal As Double, rChangingCell As Range) As Double
  Application.Volatile True
  'On Error Resume Next
  formulaCell.GoalSeek Goal:=dGoal, ChangingCell:=rChangingCell
  GoalSeek = rChangingCell.Value
End Function