Draw precedent arrows for formulas in a range

[Aflatoon]

For example:

   Dim rgFormulas        As Excel.Range
   Dim rgCell            As Excel.Range
   Set rgFormulas = ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
   For Each rgCell In rgFormulas
      rgCell.ShowPrecedents
   Next rgCell