Craig,

Glad to help. You should probably change the main routine as follows as should there ever be other types of InlineShapes (that's what ActiveX controls are) in the document, it would error:

Sub ShowHideBookmark(lngTable As Long)
Dim oILS As InlineShape
Dim oAX
Dim oRng As Range
  For Each oILS In ActiveDocument.InlineShapes
    If oILS.OLEFormat.ClassType = "Forms.CheckBox.1" Then
      If oILS.OLEFormat.Object.Name = "CheckBox" & lngTable Then
        Set oAX = oILS.OLEFormat.Object
        Exit For
      End If
    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