You shouldn't need anything more complicated than:
Code:
Private Sub CheckBox1_Click()
ActiveDocument.Bookmarks("Bookmark1").Range.Font.Hidden = CheckBox1.Value
End Sub
That said, toggling the 'hidden' property of a range is unreliable, since whether that range continues to display, or even print when not displayed, is dependent on how the user has Word configured.