Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl
  Select Case .Title
    Case "Rating"
      Select Case .Range.Text
        Case "Unsatisfactory": .Range.Cells(1).Shading.BackgroundPatternColor = 4739264
        Case "Satisfactory With Improvements Needed": .Range.Cells(1).Shading.BackgroundPatternColor = 5232127
        Case "Satisfactory": .Range.Cells(1).Shading.BackgroundPatternColor = 5880731
        Case Else: .Range.Cells(1).Shading.BackgroundPatternColorIndex = wdNoHighlight
      End Select
    Case "Risk"
      Select Case .Range.Text
        Case "High": .Range.Cells(1).Shading.BackgroundPatternColor = 4739264
        Case "Moderate": .Range.Cells(1).Shading.BackgroundPatternColor = 5232127
        Case "Low": .Range.Cells(1).Shading.BackgroundPatternColor = 5880731
        Case Else: .Range.Cells(1).Shading.BackgroundPatternColorIndex = wdNoHighlight
      End Select
    Case Else
  End Select
End With
End Sub