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

  • Thread starter Thread starter Guest
  • Start date Start date
G

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?
 
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
 
Back
Top