Do you have your bookmarks defined properly? This seems to work:
Option Explicit
Sub CheckBox1_Change()
ShowHideBookmark 1
End Sub
Sub CheckBox2_Change()
ShowHideBookmark 2
End Sub
Sub CheckBox3_Change()
ShowHideBookmark 3
End Sub
Sub ShowHideBookmark(lngTable As Long)
Dim oILS As InlineShape
Dim oAX
Dim oRng As Range
For Each oILS In ActiveDocument.InlineShapes
If oILS.OLEFormat.Object.Name = "CheckBox" & lngTable Then
Set oAX = oILS.OLEFormat.Object
Exit For
End If
Next oILS
If Not oAX Is Nothing Then
Set oRng = ActiveDocument.Bookmarks("Tab" & lngTable).Range
If oAX.Value = True Then
oRng.Font.Hidden = True
With ActiveWindow.View
.ShowHiddenText = False
.ShowAll = False
End With
Else
oRng.Font.Hidden = False
End If
End If
lbl_Exit:
Exit Sub
End Sub