I use this code:

```
Sub d_FormatTableEndNoteDemo2()
Application.ScreenUpdating = False
Dim Tbl As Table
For Each Tbl In ActiveDocument.StoryRanges(wdEndnotesStory).Tables
  With Tbl
    .AllowAutoFit = False
    .Rows.Alignment = wdAlignRowCenter
    .Rows.Height = CentimetersToPoints(0.6)

    .Range.Cells.VerticalAlignment = wdCellAlignVerticalTop
    .Range.ParagraphFormat.Alignment = wdAlignParagraphLeft

    .Columns(1).Width = CentimetersToPoints(1#)
    .Columns(2).Width = CentimetersToPoints(5#)
    .Columns(3).Width = CentimetersToPoints(11#)

  End With
Next
Application.ScreenUpdating = True
End Sub

```

But I don't know how to fortmat the font of the third column = hidden.
Please help me.