Sub OppositeColor() Dim OrigSelection As ShapeRange Set OrigSelection = ActiveSelectionRange OrigSelection.ApplyEffectInvertEnd Sub