Range.DirectPrecedents (Excel)

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.

The DirectPrecedents property only works on the active sheet and cannot trace remote references.

Dim rngDirectPrecedents As Range
Set rngDirectPrecedents = ActiveCell.DirectPrecedents