'To select a range of cells within a table, declare a Range variable, assign to it the cells you want to select, and then select the range Sub cellSel() Dim myCells As Range
With ActiveDocument
Set myCells = .Range(Start:=.Tables(1).Cell(1, 1).Range.Start, _ End:=.Tables(1).Cell(1, 4).Range.End)
myCells.Select End With End Sub