Is there a tool to map the path a macro takes through all it's procedures?

I have done a particularly ugly job of creating a macro-intensive
spreadsheet over the past 3 years. In fact, I challenge you to think of a
single VBA-Best-Practive that I have competently implemented in this
spreadsheet. Truly, I should be sent to Notepad and told to stay there for
the rest of my life. I would have gotten away with my abuse, but now I have
to share the spreadsheet with a more proficient programmer.

But perhaps you can help. Is there a tool that will map the complex paths
taken by the various procedures when the start button is pushed?

Or, failing that, is there a single line of code that I can copy to every
procedure that will return the procedure name to a cell as it runs?
Something like:

Sheets("MapPath").Range("A1").end(xlDown).offset(1 ,0).value =
CurrentMacro.Name

Any help appreciated.

regards
Daniel