Use Content Control Choices to Display Fees

[gmaxey]

Add another controls titled "Discount

ActiveDocument.SelectContentControlsByTitle("Discount").Item(1).Range.Text = ActiveDocument.SelectContentControlsByTitle("Team Fee").Item(1).Range.Text - 15