VBA for align text in shape or selected table cells

[John Wilson]

Maybe

Sub AlignTop()

Dim iCol As Integer
Dim iRow As Integer
Dim otbl As Table
On Error GoTo Err


Set otbl = ActiveWindow.Selection.ShapeRange(1).Table
otbl.Parent.Height = 0
For iRow = 1 To otbl.Rows.Count
For iCol = 1 To otbl.Columns.Count


With otbl.Cell(iRow, iCol)
.Shape.TextFrame2.VerticalAnchor = msoAnchorTop
End With
Next iCol
Next iRow
Exit Sub
Err:
MsgBox "There was an error: " & Err.Description, vbCritical
End Sub