Sub Demo() With ActiveDocument.Tables(2) .Columns(.Columns.Count).Width = CentimetersToPoints(2#) End With End Sub