Precedents Property Example
This example selects the precedents of cell A1 on Sheet1.
Worksheets("Sheet1").Activate Range("A1").Precedents.Select