Selection.Cells (Word)

Returns a Cells collection that represents the table cells in a selection.

For information about returning a single member of a collection, see Returning an object from a collection.

If Selection.Information(wdWithInTable) = True Then 
 Selection.Cells(1).Shading.BackgroundPatternColorIndex = wdRed 
Else 
 MsgBox "The insertion point is not in a table." 
End If