Option Explicit

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
    If ContentControl.Type = wdContentControlDropdownList Then
        If ContentControl.Title = "ROLE" Then 
            ChangeCheckBoxes ContentControl
        End If
    End If
End Sub

Sub ChangeCheckBoxes(ByRef dropdownControl As ContentControl)
    Dim dropdownValue As String
    dropdownValue = dropdownControl.Range.Text
    

    Select Case dropdownValue

        Case "RSC"
            ActiveDocument.SelectContentControlsByTitle("RPT").Item(1).Checked = True
            ActiveDocument.SelectContentControlsByTitle("DS").Item(1).Checked = True
  
            
        Case "LSC" 
   
            ActiveDocument.SelectContentControlsByTitle("DS").Item(1).Checked = True
            ActiveDocument.SelectContentControlsByTitle("SPT").Item(1).Checked = True
     
            
           
                
    End Select
End Sub