With ActiveWindow.Selection If .HasChildShapeRange = True Then .ChildShapeRange.Line.ForeColor.RGB = RGB(200, 15, 10) Else .ShapeRange.Line.ForeColor.RGB = RGB(10, 15, 200) End If End With