With Selection .Text = " (source)" .Range.HighlightColorIndex = wdYellow .Collapse 0 .Range.HighlightColorIndex = wdAuto End With