Can anyone advise me how to combine 2 dropdown list: 1 dropdown list with conditional content, another dropdown list with bookmarks. The below code cannot work and the row was cut away after updating the 2nd dropdown list.

Thanks.


Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)Application.ScreenUpdating = False
Dim i As Long, StrDetails As String


'Dropdown list 1


With ContentControl
  If .Title = "NameofCompany" Then
    For i = 1 To .DropdownListEntries.Count
      If .DropdownListEntries(i).Text = .Range.Text Then
        StrDetails = .DropdownListEntries(i).Value
        Exit For
      End If
    Next
    If StrDetails = "" Then StrDetails = "||"
    With ActiveDocument.SelectContentControlsByTitle("Address")(1)
      .LockContents = False
      .Range.Text = Split(StrDetails, "|")(0)
      .LockContents = True
    End With
    With ActiveDocument.SelectContentControlsByTitle("Owner")(1)
      .LockContents = False
      .Range.Text = Split(StrDetails, "|")(1)
      .LockContents = True
    End With
    End If
End With
Application.ScreenUpdating = True
  
'dropdown list 2 - with bookmark


  Case ContentControl.Title
   Case "EditableC"
      Select Case ContentControl.Range.Text
        Case "YES": InsertBB_atBookmarkRange_Range "bmEditable", "EditableYesPara"
        Case "NO": InsertBB_atBookmarkRange_Range "bmEditable", "EditableNoPara"
        Case Else: InsertBB_atBookmarkRange_Range "bmEditable"
      End Select
  End Select
lbl_Exit:
  Exit Sub
  


End Sub