Changing the color of a shapes' bordesr when unhiding them

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

ActiveSheet.Shapes(nameObject).Line.Visible = indDisplay
    With ActiveSheet.Shapes(nameObject).Line
        .ForeColor.RGB = RGB(79,129,189)
        .BackColor.RGB = RGB(79,129,189)
    End With
End Sub

I think that works, there is also a forecolor.type but that should automatically change to msoColorTypeRGB when you change the RGB property, otherwise you will need to add .forecolor.type = msocolortypergb