goal seek UD function

[DEllis81]

i am looking for a UD function that mimics the goal seek command automatically. I have a need to goal seek (or solve) multiple values iwthin a single spreadsheet upon a recalculation.

Is there such thing available. I did see a few notations regarding a goal seek function (partial code I think - but I lack the understanding to make work. Is there a complete UD function available that I can incorporate into existing spreadsheet model?

Thanks