Trace Precedents tool for multiple functions

[lezawang]

Hi
I have multiple functions in a sheet. I want to use Trace Precedents (the arrows tool) for all functions in the sheet. Now it only show arrows for only one cell (the selected) one which has the function. How can I make that tool show all the arrows for other functions as well, or that is not possible? Thank you very much.

 

[Eric W]

You could run a macro to do it:

Sub Macro1()
Dim c As Range

    For Each c In ActiveSheet.UsedRange
        If c.Formula <> "" Then c.ShowPrecedents
    Next c
End Sub

 

[lezawang]

It works amazing. Thank you so much.

 

[Eric W]

Happy to help!

 

[Rick Rothstein]

You could also do it this way which only iterates the cells containing formulas directly as opposed to examining every cell in the UsedRange and testing them individually to see if they have a formula or not...

Sub ShowAllPrecedentArrows()
  Dim Cell As Range
  For Each Cell In Cells.SpecialCells(xlFormulas)
    Cell.ShowPrecedents
  Next
End Sub