How to show all precedent arrows on whole worksheet at same time?

[Guest]

I have several worksheets with the same formula over and over.
I need to make sure that the precedents are correct. Each worksheet has
about 600 lines. Hitting the precent button and the using the arrow to go
down is a dopey way to display the precendent on the whole sheet. Is there a
way to show all of the precedent arrows for an entire sheet at once?

 

[JP]

Sub ShowCellPrecedents()
Dim cell As Range
Set rng = Activesheet.usedrange
rng.specialcells(xlcelltypeformulas).select

For Each cell In Selection
cell.ShowPrecedents
Next cell

End Sub


HTH,
JP