主题：[求助]怎样定位列标题中首次出现“AAAA”字符串的列

总共有几十个表，每个表100多列，每个表的列标题相似，但总列数可能不同。想设置个按钮，不管在那个表，都能找到列标题中首次出现“AAAA”字符串的列。请指教！

 遍历所有表然后再遍历所有列，根据要求搞

For Each t As Table In Tables
    For Each c As Col In t.cols
        If c.IsString AndAlso t.FindRow(c.name & " = 'AAAA'") >= 0 Then
            msgbox(t.name & " " & c.name)
        End If
    Next
Next

For Each t As Table In Tables
        For Each c As Col In t.cols
If 列的标题中包含“AAAA”  then