循环查,循环4个表,然后查找,找到就退出。如
Dim tnames() = {"表A", "表B", "表C"}
For Each tname As String In tnames
msgbox(tname)
Next