Hello,

try activesheet.range("IssueRed").Borders.Weight = xlThick instead. The
BorderAround Method seems only suitable for setting the border
Properties, not for reading them.
As far as I understand it, using the Borders property in the way I
mentioned above, will only work, if the setting are the same for all
Borders of the cell, otherwise you have to pick a specific border with
one of the following constants:
xlDiagonalDown, xlDiagonalUp, xlEdgeBottom, xlEdgeLeft, xlEdgeRight,
xlEdgeTop, xlInsideHorizontal oder xlInsideVertical

E.g. activesheet.range("IssueRed").Borders(xlEdgeBottom ).Weight =
xlThick will check for the bottom border.

Andreas