'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
|