Dim oParent
Set oParent = oNode
Do
Set oParent = oParent.parentNode
Loop While oParent.tagName <> "TABLE"