With Windows(1).Selection.ShapeRange .Fill.ForeColor.RGB = RGB(255, 0, 0) .Flip ksoFlipVerticalEnd With