Automate What IF Analysis (Goal Seek)

I am looking for a way to automate the what-if-analysis tool found in Excel 2007.

I am looking for a macro that opens Goal seek (Data tab>What if analysis>Goal seek) Inputs Set cell as E5, To value as 0 and By changing cell as D2. I then want this to run, storing the goal seek value of cell D2 into cell H5.

I want the process to then repeat for the next cell down i.e. E6, keeping To value as 0, and By changing cell as D2, storing the results in the next cell down i.e. H6.

I have little experience writing VBA scripts so any assistance you could provide would be appreciated.

Regards

Try this:

Please Login or Register  to view this content.