This example draws tracer arrows to the precedents of the active cell on Sheet1.
Worksheets("Sheet1").Activate
ActiveCell.ShowPrecedents
This example removes the tracer arrow for one level of precedents of the active cell on Sheet1.
Worksheets("Sheet1").Activate
ActiveCell.ShowPrecedents remove:=True