G'Day Joe19p

This is a tad more simple:

Public Sub NestedTables()
Dim nestedTable As Word.Table
Dim theTable As Word.Table


' Iterate through all tables in the current document
For Each theTable In ActiveDocument.Tables


' We are only interested in Tables that contain a nested Table
If theTable.Tables.Count > 0 Then


' This code assumes that there is only one nested table in your parent Table
Set nestedTable = theTable.Tables(1)
Exit For
End If
Next


' Check that we actually caught a Table containing a nested Table
If Not nestedTable Is Nothing Then


' Do Something with your nested Table here
Debug.Print "My nested table contains " & nestedTable.Rows.Count & " rows"
End If
End Sub ' NestedTables


Good luck - Peter