Returns a Range object that represents the range containing all the direct precedents of a cell. This can be a multiple selection (a union of Range objects) if there’s more than one precedent. Read-only Range object.
expression.DirectPrecedents
expression Required. An expression that returns one of the objects in the Applies To list.
Remark
Note The DirectPrecedents property only works on the active sheet and can not trace remote references.
Example
This example selects the direct precedents of cell A1 on Sheet1.
Worksheets("Sheet1").Activate
Range("A1").DirectPrecedents.Select