Range.Precedents (Excel)

Returns a Range object that represents all the precedents of a cell. This can be a multiple selection (a union of Range objects) if there's more than one precedent.

Dim rngPrecedents As Range
Set rngPrecedents = ActiveCell.Precedents