Automating goal seeking in MS Excell

How can we automate the goal seeking problem in excell where the system prompts the user to give the value which is to achieved.
We may use VBA also for this purpose