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

On Nov 6, 4:05 pm, HPosner wrote:
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?