With Windows(1).Selection.ShapeRange If .Connector Then .Line.ForeColor.RGB = RGB(100, 200, 10) Else .Line.ForeColor.RGB = RGB(100, 240, 240) End If End With