Private Sub Document_ContentControlOnExitold(ByVal oCC As ContentControl, Cancel As Boolean)
Dim jCC As ContentControl

    With oCC
        If .Title = "1" Then
            Select Case .Tag
                Case Is = "a"
                    For Each jCC In ActiveDocument.ContentControls
                        If jCC.Title = "1" And jCC.Tag = "b" Then
                            jCC.Range.Select
                            Exit For
                        End If
                    Next jCC
                Case Is = "b"
                    For Each jCC In ActiveDocument.ContentControls
                        If jCC.Title = "1" And jCC.Tag = "c" Then
                            jCC.Range.Select
                            Exit For
                        End If
                    Next jCC
                Case Is = "c"
                    For Each jCC In ActiveDocument.ContentControls
                        If jCC.Title = "2" And jCC.Tag = "a" Then
                            jCC.Range.Select
                            Exit For
                        End If
                    Next jCC
            End Select
        End If
    End With
End Sub