Private Sub Acknowledge_Click() Dim rngBookmark As Range Set rngBookmark = ActiveDocument.Bookmarks("TextToHide").Range rngBookmark.Font.Hidden = True End Sub