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