Hello again.

I ran into a roadblock and discovered that there are some Centers that can service more than 1 zipcode. IN this case it's zipcode 95670. The only way i can think of this being making this work is to make the Site field a Combo Box.

I have been researching on this and it all signs point to Cascading Combo Box. I've tried the objCC.DropdownListEntries.Add but i keep running into errors. 

Option Explicit

Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
    Select Case ContentControl.Title
        Case Is = "Site"
            Select Case ThisDocument.SelectContentControlsByTag("Zip").Item(1).Range.Text
                Case 95815, 95833, 95834
                    ContentControl.Range.Text = "123 Center"
                Case 95615, 95690, 95818, 95822, 95831, 95832
                    ContentControl.Range.Text = "ABC Center"
                Case 95823, 95828, 95829
                    ContentControl.Range.Text = "XYZ Center"
                
                Case 95670
                    ContentControl.Range.Text = "XYZ Center"
                    ContentControl.Range.Text = "ABC Center"
                    ContentControl.Range.Text = "123 Center"
                
                Case Else
                    ContentControl.Range.Text = ""
            End Select
    End Select
End Sub


Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
    Select Case ContentControl.Title
        Case Is = "Zip"
            If ContentControl.ShowingPlaceholderText = True Then
                ThisDocument.SelectContentControlsByTag("Site").Item(1).Range.Text = ""
                MsgBox "Select the zip code!"
                ContentControl.Range.Select
            Else
                Select Case ContentControl.Range.Text
                    Case 95815, 95833, 95834
                        ThisDocument.SelectContentControlsByTag("Site").Item(1).Range.Text = "123 Center"
                    Case 95615, 95690, 95818, 95822, 95831, 95832
                        ThisDocument.SelectContentControlsByTag("Site").Item(1).Range.Text = "ABC Center"
                    Case 95823, 95828, 95829
                        ThisDocument.SelectContentControlsByTag("Site").Item(1).Range.Text = "XYZ Center"
                        
                    Case 95670
                        ThisDocument.SelectContentControlsByTag("Site").Item(1).Range.Text = "123 Center"
                        ThisDocument.SelectContentControlsByTag("Site").Item(1).Range.Text = "ABC Center"
                        ThisDocument.SelectContentControlsByTag("Site").Item(1).Range.Text = "XYZ Center"
                    
                End Select
            End If
    End Select
End Sub
Any assistance is very much appreciated.

-Steve