Apply changes to an individual cell in a table
Article contributed by Bill Coan
Drill down to the desired cell. In this example, Cell(1, 1) refers to the cell in row 1, column 1:
With ActiveDocument.Tables(1).Cell(1, 1)
.Width = InchesToPoints(1)
.Shading.BackgroundPatternColorIndex = wdBlue
.Range.Font.Name = "Arial"
.Range.Font.Size = 20
End With