Hello all,

I'm using the following macro (which is assigned to a checkbox) to hide/unhide the border of some shapes in a group:

Public Sub Show_Borders(nameObject As String, indDisplay As Boolean)

ActiveSheet.Shapes(nameObject).Line.Visible = indDisplay
End Sub
The code works, but when I hide and then unhide the borders, they are black when I unhide them. How could I add some code that would cause them to return as a color other than black?

Any help would be greatly appreicated. Thanks!
Jackson