[Helmut Weber]

Hi,

I would not rely on something recursive, like tables in tables,
as long as the limit for the recursiveness is unknown.

Sub Test444()
Dim oTbl As Table
Dim oCll As Cell
For Each oTbl In ActiveDocument.Tables
For Each oCll In oTbl.Range.Cells
If oCll.Tables.Count 0 Then
oCll.Tables(1).Select
Stop
End If
Next
Next
End Sub

HTH

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"