Range.Borders (Excel)

Returns a Borders collection that represents the borders of a style or a range of cells (including a range defined as part of a conditional format).

Dim brdsBorders As Borders
Set brdsBorders = ActiveCell.Borders