View Single Post
 
Old 12-12-2022, 08:07 AM
Italophile Italophile is offline Windows 11 Office 2021
Expert
 
Join Date: Mar 2022
Posts: 540
Italophile is just really niceItalophile is just really niceItalophile is just really niceItalophile is just really nice
Default

You're using the wrong event. The following works for me.

Code:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
    If ContentControl.Tag = "Checkbox1" Then
        ActiveDocument.Bookmarks("Test1").Range.Font.Hidden = ContentControl.Checked
    End If
End Sub
Reply With Quote