Solved it - Just removed the one from the r.cells(1).shading.BackgroundPatternColor = wdOrange row.

[Sub AmberText()

Dim r As Range, wdOrange As Long
wdOrange = 41215
Set r = ActiveDocument.Range
With r.Find
Do While .Execute(FindText:="Amber", MatchWholeWord:=True, Forward:=True) = True
r.Cells.Shading.BackgroundPatternColor = wdOrange
Loop
End With

End Sub]