Range.SpillingToRange (Excel)

Dim rngSpillingToRange As Range
Set rngSpillingToRange = ActiveCell.SpillingToRange