Private Sub Document_ContentControlOnExit(ByVal myCC As ContentControl, Cancel As Boolean)
  Dim aCC As ContentControl, strSet As String
  If myCC.Title = "EmploymentType" Then
    strSet = myCC.Range.Text
    For Each aCC In ActiveDocument.ContentControls
      If aCC.Title <> "EmploymentType" Then
        aCC.Range.Font.Hidden = aCC.Title <> strSet  'hide if CC title doesn't match selected employment type
      End If
    Next aCC
  End If
  ActiveWindow.View.ShowAll = False
  ActiveWindow.View.ShowHiddenText = False
End Sub