Microsoft Office Forums - View Single Post - [Solved] How to use checkbox to show/hide bookmarked text?

namrehx · 12-13-2017, 06:57 AM

Quote:

Originally Posted by macropod

In that case, try:

Code:

Private Sub CheckBox1_Click()
Call ShowHide
End Sub

Private Sub CheckBox2_Click()
Call ShowHide
End Sub

Sub ShowHide()
Dim bVis As Boolean: bVis = True
If CheckBox1.Value = True Then bVis = False
If CheckBox2.Value = True Then bVis = False
ActiveDocument.Bookmarks("Bookmark1").Range.Font.Hidden = bVis
End Sub

Thank you so much! This works for me!