With ActiveWindow.Selection.ChildShapeRange If .Type = ksoTextBox Then .Line.ForeColor.RGB = RGB(200, 15, 10) Else .Line.ForeColor.RGB = RGB(10, 15, 200) End If End With