Precedents Property Example

This example selects the precedents of cell A1 on Sheet1.

Worksheets("Sheet1").Activate
Range("A1").Precedents.Select