|What I would do is use find and replace. |
First right click on the worksheet tab, and choose "move or copy", shove it at the end and create a copy.
On the copy, highlight the cells you want to get the formula of, CTRL-H and replace = with ' (a single quote). Then copy this whole column and paste special (values) on the sheet that is current. Should give you your desired result.
If you have any IF formulae, this will make the cell look a bit odd, but I can't think of a way around this.
Failing this, you could try looking at VBA Range.Dependents property.