Sub text() Dim strCellText As String strCellText = ActiveDocument.Tables(1).Rows(2).Cells(1).Range.Text Debug.Print strCellTextEnd Sub