Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean) Dim bkm As Bookmark
If ContentControl.Tag = "List"