Sub Macro1()
'Graham Mayor 14 May 2015
Dim oRng As Range
Set oRng = ActiveDocument.Range        'or Selection.Range
    With oRng.Find
        Do While .Execute(FindText:="Pricing Graph")
            oRng.Words(1).HighlightColorIndex = wdYellow
            Exit Do        'Remove if you want all 'Pricing Graph' entries to be found
        Loop
    End With
lbl_Exit:
    Exit Sub
End Sub