TableCellRange Property

expression.TableCellRange

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

This example fills the table cells in a selection.

Sub FillTableCellRange()
    Dim intCount As Integer
    With Selection
        If .Type = pbSelectionTableCells Then
            With .TableCellRange
                For intCount = 1 To .Count
                    .Item(intCount).Fill.ForeColor.RGB = RGB _
                        (Red:=0, Green:=255, Blue:=255)
                Next intCount
            End With
        End If
    End With
End Sub