With oRng.Find With .Font .Bold = True End With Do While .Execute(FindText:="(\[*\])", MatchWildcards:=True, _ Format:=True)