Don't know if this is what you're looking for. Basically, it performs
goal seek everytime the worksheet calculates. You can choose to invoke
goal seek with macro or click of a button. There are plenty of ways to
perform goal seek.
Private Sub worksheet_calculate()
_On_Error_GoTo_TheEnd
Application.EnableEvents_=_False_
Range("A1").GoalSeek Goal:=Range("A2"), ChangingCell:=Range("A3")
_TheEnd:
Application.EnableEvents_=_True_
End Sub
Make sure you have those underlines, or excel might loops forever.
If you don't understand. Please ask again. Good Luck.
--
csw78
------------------------------------------------------------------------
csw78's Profile:
http://www.excelforum.com/member.php...o&userid=23008
View this thread:
http://www.excelforum.com/showthread...hreadid=372087