如何根据列表的不同选项选择不同列表

如何根据列表的不同选项选择不同列表，或者用vba实现该功能，先谢了

Sub 选中有姓名选项的表()
On Error Resume Next
Dim myTable As Table
Dim ttt As String
Dim myCell As Cell
Dim i
Dim selRange As Range
Dim objEditor As Editor
    ttt = "姓名"
   For Each myTable In ActiveDocument.Tables
   For Each myCell In mytanble.Cells
   If InStr(myCell.Range, ttt) <> 0 Then
myTable.Select
End If
Next
Next
End Sub


问题是如果有多个表格里有“姓名”选项，你要同时选定，就要想办法了，这个代码只选最后一个。